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ABSTRACT 


This report describes the development of a flexible simulation model for scramjet hypersonic 
propulsion systems. Its primary goal is determination of sensitivity of the thrust vector and other 
system parameters to angle of attack changes of the vehicle. Such information is crucial in design 
and analysis of control system performance for hypersonic vehicles. The code is also intended to be 
a key element in carrying out dynamic interaction studies involving influence of vehicle vibrations 
on propulsion system/control system coupling and flight stability. 

Simple models are employed to represent the various processes comprising the propulsion 
system. A method of characteristics (MOC) approach is used to solve the forebody and external 
nozzle flow fields. This results in a very fast computational algorithm capable of carrying out the 
vast number of simulation computations needed in guidance, stability, and control studies. 

The three-dimensional fore- and aft body (nozzle) geometry is characterized by the centerline 
profiles as represented by a series of coordinate points and body cross-section curvature. The engine 
module geometry is represented by an adjustable vertical grid to accommodate variations of the field 
parameters throughout the inlet and combustor. The scramjet inlet is modeled as a two-dimensional 
supersonic flow containing adjustable sidewall wedges and multiple fuel injection struts. The inlet 
geometry including the sidewall wedge angles, the number of injection struts, their sweepback 
relative to the vehicle reference line, and strut cross-section are user selectable. Combustion is 
currently represented by a Rayleigh line calculation including corrections for variable gas properties; 
improved models are being developed for this important element of the propulsion flow field. 

The program generates: (1) variation of thrust magnitude and direction with angle of attack, (2) 
pitching moment and line of action of the thrust vector, (3) pressure and temperature distributions 
throughout the system, and (4) performance parameters such as thrust coefficient, specific impulse, 
mass flow rates, and equivalence ratio. 

Preliminary results are in good agreement with available performance data for systems resem- 
bling the NASP vehicle configuration. Two geometries were used to demonstrate the code. The first 
was scaled from three-view drawings available in the open literature. The nose shape utilized a 
convex contour that could be handled adequately by the present method of characteristics package. 
A two-dimensional profile (UX-30) provided by NASA was also studied in a preliminary way to 
demonstrate effects of a ramp forebody diffuser. The calculations demonstrated the great sensitivity 
of propulsion system performance to vehicle configuration. 

An extensive set of development calculations have been carried out with the code. Thermody- 
namic parameters, thrust vector data, thrust line-of-action, and pitch moment plots are presented as 
functions of angle of attack and flight Mach number. Sample calculations were performed in the 
Mach number range S < M w < 25, and angle of attack range -5 < a < 15 degrees. Plots of flow 
properties and velocity distributions through the system show that the code generates valid 
simulations of hypersonic propulsion processes and their dependence on vehicle attitude. 



CONTENTS 


Page 

ABSTRACT i 

PREFACE iii 

SUMMARY iv 

INTRODUCTION 1 

APPROACH 2 

ANALYSIS 6 

Rotational Method of Characteristics for the Vehicle Forebody 6 

Conical Flow Analysis 9 

Inlet Face 12 

Inlet Analysis 13 

Analysis of Flow Field Events 15 

Combustion Zone Analysis 28 

Aftbody Method of Characteristics 30 

Program Operation 31 

RESULTS 32 

Results for NASA UX-30 Configuration 32 

Results for Generic NASP Configuration 41 

CONTINUED DEVELOPMENT OF THE PROGRAM 70 

CONCLUSIONS 73 

REFERENCES 76 

APPENDICES 78 

Appendix 1 - Users, Manual for Program HYTHRUST 78 

Appendix 2 - Sample Data Files (NASP.dat and UX-30.dat) 84 

Appendix 3 - Source Listing for Computer Code 86 


ii 



PREFACE 


This is the final report of a one-year research effort under NASA Contract NAG-1-1205 to 
the School of Aerospace Engineering, Georgia Institute of Technology. The work was funded by 
the Aircraft Guidance and Controls Branch/Guidance and Control Division, NASA Langley 
Research Center. The goal of the research was development of an efficient method for estimat- 
ing the thrust vector and other performance parameters for hypersonic airbreathing propulsion/ 
airframe systems. An algorithm of this type is required in carrying out the extensive computa- 
tions needed in hypersonic vehicle stability and control studies. Simple one-dimensional models 
are inadequate because they do not provide information regarding the thrust vector. Thrust 
produced pitch moments, and line of action of the thrust vector as functions of vehicle attitude. 
More complete models usually require application of numerical methods that are often 
computationally expensive. The approach described in the report is based on application of 
numerical techniques that are fast and efficient The results ate physically realistic and easily 
applied to a wide variety of hypersonic vehicle configurations. 

The program managers were J. D. McMinn and J. D. Shaughnessy of the Aircraft Guidance 
and Controls Branch/Guidance and Control Division, NASA Langley Research Center. The 
Principal Investigator was Dr. G. A. Flandro who was a Professor of Aerospace Engineering, 
Georgia Institute of Technology when the program began. He is now the Boling Chair Professor 
of Advanced Propulsion at the University of Tennessee Space Institute. He continued to man- 
aged the program after moving to UTSI. Dr. Flandro was also responsible for the combustion 
modeling and performance calculations, and wrote the stand-alone Macintosh version of the final 
code. 

Co-Investigator was Dr. Robert L. Roach of Georgia Tech who developed key numerical 
algorithms such as the several method of characteristics (MOC) routines required in the compu- 
tations. Harald Buschek of Georgia Tech was a graduate assistant who was assigned the difficult 
task of writing the complex shock-expansion routines for the scramjet inlet analysis. 

The authors wish to express their sincere thanks to Dana McMinn and John Shaughnessy for 
their assistance in the efficient operation of this study and for their patience when progress 
appeared to be slow. We also wish to acknowledge the efforts of Fred Morrell and Jerry Elliot of 
the Guidance and Control Division for giving us the opportunity to carry out this research. 
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SUMMARY 


This report describes the initial development of a flexible simulation model for scramjet 
hypersonic propulsion systems. Its primary goal is determination of sensitivity of the thrust vector 
and other system parameters to angle of attack changes of the vehicle. Such information is crucial 
in design and analysis of control system performance for hypersonic vehicles. 

Since the algorithm is intended for vehicle dynamic simulation rather than propulsion system 
design and optimization, simple models are employed to represent the various processes comprising 
the propulsion system. A method of characteristics (MOC) approach is used to solve the forebody 
and external nozzle flow fields. However, at the present stage of development only forebody shapes 
with convex lower surfaces can be accommodated. Concave surfaces, more representative of current 
vehicle concepts, generate shock waves in the solution domain that defeat the present implementa- 
tion of the method of characteristics. Thus a shock-expansion package is employed as a preliminary 
concave forebody solver, but it is restricted to a two-dimensional nose geometry. 

The three-dimensional fore- and aft body (nozzle) geometry is characterized by the centerline 
profiles as represented by a series of coordinate points and body cross-section curvature. The engine 
module geometry is represented by an adjustable vertical grid to accommodate variations of the field 
parameters throughout the inlet and combustor. The scramjet inlet is modeled as a two-dimensional 
supersonic flow containing adjustable sidewall wedges and multiple fuel injection struts. The inlet 
geometry including the sidewall wedge angles, the number of injection struts, their sweepback 
relative to the vehicle reference line, and strut cross-section are user selectable. Combustion is 
currently represented by a Rayleigh line calculation including corrections for variable gas properties, 
but improved models are being developed for this important element of the flow Held. 

The program generates: (1) variation of thrust magnitude and direction with angle of attack, (2) 
pitching moment and line of action of the thrust vector, (3) pressure and temperature distributions 
throughout the system, and (4) performance parameters such as thrust coefficient, specific impulse, 
mass flow rates, and equivalence ratio. 

Preliminary results are in good agreement with available performance data for systems resem- 
bling the NASP vehicle configuration. Two geometries were used to demonstrate the code. The first 
was scaled from three-view drawings available in the open literature. The nose shape utilized a 
convex contour that could be handled adequately by the present method of characteristics package. 
A two-dimensional profile (UX-30) provided by NASA was also studied in a preliminary way to 
demonstrate effects of forebody diffusion. Thermodynamic parameters, thrust vector data, thrust 
line-of-action, and pitch moment plots are presented as functions of angle of attack and flight Mach 
number. Sample calculations were performed in the Mach number and angle of attack ranges 5 < 
Moo < 25, and -5 < a < 15 degrees. 
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The computations demonstrate the great sensitivity of the thrust vector to small vehicle pitch 
attitude changes. The thrust vector for the baseline vehicle configuration exhibits a significant 
downward component (negative lift contribution) under most flight conditions. This is largely the 
result of (1) the poor design of the baseline configuration, (2) the lack of boundary layer corrections 
in the aerodynamic representations, (3) neglect of adverse pressure gradients and flow separation in 
on the nozzle surfaces, and (4) instabilities caused by compression zones in the nozzle MOC 
solutions that led to inaccuracy in the predicted nozzle performance. 

Despite the several obvious inadequacies of the present version of the program, it demonstrates 
significant promise for use in its intended role. The preliminary calculations indicate the great 
sensitivity of the results to changes in the shape of the forebody and nozzle contour, and the position 
and configuration of the cowL Thus, effects of boundary layer offsets are vitally important and must 
be incorporated in later versions of the computer program already under development 

As the model evolves, it will also be used to estimate effects of propulsion system interactions 
with flexible vehicles. Eventually, effects of vehicle bending and unsteady atmospheric parameters 
will be assessed by means of advanced versions of the algorithm. Other improvements to be 
developed will include representation of three-dimensional flow effects (including effects of 
complex nozzle and fore-body cross sections), sensitivity to sideslip angle, improved combustion 
thermodynamics, and boundary layer corrections. Of greatest importance will be incorporation of 
adequate aerodynamics modules capable of dealing with shock waves in the solution domain. 

To enable persons interested in the development of the code to assess both its weaknesses and 
potentials, a users manual, sample input files, and a complete source code listing of the current 
method of characteristics version of the program are included in appendices. A stand-alone version 
of the code is available that is configured for performing control system data base calculations on 
desktop computers (Macintosh with MC6803(V68882 processor configuration and at least 4 MB of 
RAM). This version computes a complete propulsion system analysis case in about 40 seconds for 
the full MOC algorithm and about 15 seconds for the shock/expansion forebody version. Data is 
automatically stored for later use in plotting the results for a selected set of Mach number/angle of 
attack combinations. The Macintosh versions were used in preparing most of the performance plots 
presented in this report 
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INTRODUCTION 


This report describes die initial development of a flexible simulation model for scramjet 
propulsion systems. Its primary goal is determination of sensitivity of the thrust vector and other system 
parameters to the angle of attack of the vehicle. Such information is crucial in design and analysis of 
control system performance for hypersonic vehicles. 

Several current programs concentrate on development of detailed representations of separate 
elements of the type described. Some of these modeling efforts have produced highly accurate codes 
intended mainly for detailed design and analysis purposes. However, drey are usually not in a form 
that makes them practical for rapid performance calculations. Far example, much current research is 
focused on detailed CFD solutions of die vehicle aerodynamics and its interaction with the airbreathing 
motor external andintemal flow fields. Results from such research are obviously of crucial importance, 
but are not in a form that is of immediate use in performance tradeoffs and trajectory studies. Even if 
modified to be so they are generally expensive and complicated to run making parametric studies 
impractical. 

Since the algorithm described herein is intended for vehicle dynamic simulation rather than 
propulsion system design and optimization, simple models are employed to represent the various 
processes through the propulsion system. A method of characteristics module is used to solve the 
forebody and external nozzle flow fields. The inlet consists of a two-dimensional supersonic flow 
containing adjustable sidewall wedges and multiple fuel injection struts. The number of struts and their 
sweeback relative to the vehicle reference line are user selectable. The inlet geometry including the 
sidewall wedge angles is also user selectable. Combustion is currently represented by a simple 
Rayleigh line calculation, but improved models are being developed for this important element of the 
flow field. The engine module geometry is represented by an adjustable vertical grid to accommodate 
variations of the field parameters throughout the inlet and combustor. Thrust, pitching moment , and 
thrust line are computed by integrating the pressure distributions over the entire surface wetted by flow 
involved in the propulsion process. The effects of forebody drag and inlet interactions are included in 
the thrust calculations. 

Attention has been paid to incorporation of a convenient user interface to allow efficient study of 
the effects of small changes in vehicle configuration, structural characteristics, or propulsion system 
design. The program generates: (1) variation of thrust magnitude and direction with angle of attack, 
(2) pressure and temperature distributions through the system, and (3) performance parameters such 
as thrust coefficient, specific impulse and equivalence ratio. As the model evolves, it will also be used 
to estimate effects of propulsion system interactions with flexible vehicles. Eventually, effects of 
vehicle bending and unsteady atmospheric parameters will be assessed. 

The algorithm is evolving as areas of weakness are discovered. The method of characteristics tools 
used in the curent version do not accommodate compressions of the type that would be typically 
employed on a hypersonic vehicle forebody as part of the propulsion diffusion process. They are also 
very sensitive to any irregularities in the geometry that lead to local compressions. No boundary layer 
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corrections have been incorporated, so the result do not yet yield a reliable assessment of a given vehicle 
geometry. Nevertheless, the basic approach shows great promise and work has begun to overcome the 
present limitations and inaccuracies. 


APPROACH 

The computational algorithm consists of a set of flow field zones that are patched together at the 
interfaces into an integrated computational code. An important feature of the computation is 
incorporation of a flexible representation of the vehicle geometry with variable angle of attack. Work 
is currently underway to include effects of sideslip on the scramjet thrust vector using extensions of 
the methods described in what follows. Proven classical methods are utilized to produce a simple but 
sufficiently accurate representation of the vehicle. However, some of these have proven inadequa t e 
for realistic representation of a hypersonic vehicle. Clearly it will be necessary to accommodate 
shockwaves in the solution domain in the forebody since these play a major role in the diffusion process 
for the supersonic combustor. Shock/expansion methods are used temporarily for the forebody 
analysis until our shock-embedded MOC tool is completed 

Vehicle geometry is currently input by means of a data file consisting of contour points along the 
body, cowl, and nozzle profiles. A large number of points is not required, since the program includes 
routines to fit the data points by splines. To demonstrate the approach, it is applied to a typical NASP 
geometry in this paper. Fig. 1 shows the geometry assumed for use as a baseline model. It is based 
on artists conceptions available in recent open literature. It is an unrealistic model for current vehicle 
design concepts. Some calculations were also carried out for a two-dimensional aerospaceplane 
configuration (UX-30) provided by NASA. 

The user selects a convenient coordinate system such as die wing chordline and determines 
coordinates of an adequate number of points along the forebody, cowl, and nozzle. Since an 
axisymmetric forebody is assumed, it is also necessary to determine the curvature at each data station. 
Other input information required includes location and geometry of inlet sidewall wedges, injector 
struts and the combustor configuration. Figure 1 shows a typical representation of the vehicle profiles 
needed in the computations. The curved bow shock, nozzle shock and slip lines are illustrated. 

A view of the set of flow features comprising the propulsion system of a hypersonic vehicle are 
also shown in Fig. 1. The underside of the vehicle is divided into 4 main components: forebody, inlet, 
combustor, andaftbody. In each region an appropriately rapid but accurate computational method was 
chosen. The guiding principle for the selection of methods to be used was speed, flexibility, accuracy, 
and robustness. By flexibility is meant that future enhancements to the code must be compatible with 
the methods chosen. This impacts not only the type of method but choices about its implementation. 
The methods chosen for each of die regions is briefly outlined below with a detailed description 
provided in later sections. 

To put the four main solving procedures together, several smallcrrcgions have been devised which 
pass data from one section to another, provide supplementary computations as needed as boundary or 
starting conditions for the main regions, and compute forces and moments of the overall flow. These 
will be described in some detail below as well. 
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Inlet Transition in] ct (Two-D Shock- 




Methods used in the 4 main regions 


1. Vehicle Forebodv - Here a two dimensional method of characteristics is used to compute the 
flow between the forebody and die shock. A cone flow solution is used to provide the starting 
conditions. Work is in progress on a blunt body starting condition as welL The flow and the shock 
position at a number of stream wise stations are computed until the inlet is reached. Fig. 2 shows the 
nearfield of the forebody showing the individual stations used and their associated characteristics lines. 



Figure 2. Characteristics net in the forebodv region. 

2. Inlet - The flow in the inlet is computed using shock-expansion theory. Since the inlet flow 
is, in general rotational, the inlet is divided into a number of streamtubes vertically. The flow in each 
streamtube consists of shock waves, expansions, slip lines, and solid walls and their intersections. The 
code logic permits an arbitrary placement of up to 5 struts in the inlet The procedure stops when the 
combustor section is reached as specified by the user. Fig. 3 shows the top view of the cross section 
ofatypical inlet streamtube showing fuel injection struts. This is quite out of line with current design 
directions, which utilize sidewall propellant injection and no side panel wedges. 

3. Combustor - Here a simple Rayleigh line heat addition is used. The user may specify an 
equivalence ratio greater than unity. The algorithm allows combustion heat release only up to the point 
that a maximum combustor static temperature is reached. Any excess propellant is utilized to modify 
the mixture properties of the combustion products. When hydrogen is utilized as the fuel, the excess 
H2 tends to lower the molecular weight of the gases exiting the combustor with an attendant 
performance advantage. Combustion chemistry including effects of dissociation are not presently 
accounted for in the code. 
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Figure 3. Top view of an inlet stream tube showing the shock/exp ansion structure. 


4. Aftbodv - Here the method of characteristics is again used, but the high pressure gas from the 
exhaust of the combustor creates a shock wave which extends away from the body and also creates a 
slip line. The computation of the forebody was rewritten for this case and stands alone as a separate 
module. Fig. 4 shows a typical flow pattern of the shock wave, the slip line, and the characteristics net 



Figure 4. Characteristics net in the aftbodv regiotL 
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ANALYSIS 


A more detailed description of the solution methods, the governing equations and their incorpo- 
ration in die complete algorithm are given in this section. 


Rotational Method of Characteristics for the Vehicle Forebody 

The partial differential equations for inviscid, supersonic flow over solid bodies are hyperbolic and 
may be solved by a stream wise marching technique known as the Method of Characteristics. The term 
characteristics refers to the existence of real directions from a point in the flow along which certain 
combinations of quantities are constant allowing the equations to simplify to ordinary differential 
equations. In solving these equations in the characteristic directions, the fixed quantities are thus 
automatically preserved. The method thus main tains great fidelity to the solution of the original partial 
differential equations. 

For rotational flows the ordinary differential equations remain nonlinear. Hence an iterative 
method is required. Since there are a large number of approaches to the solution of nonlinear equations 
it is not surprising that there are correspondingly a large number of methods reported. An excellent 
summary is given by Chushkin [1]. We proceed in a manner most closely related to that of Rakich [2] 
who used a variant of the Hartree method (see, e.g.. Fox [3], Ch. 27). The methods reported by these 
authors are for a completely three dimensional flow about arbitrary bodies and are rather time 
consuming. However, the axisymmetric versions are significantly faster and are appropriate for 
incorporation in the scope of this analysis. The axisymmetric version was also chosen since, if interest 
warrants and computational capability does not prohibit, it would be relatively straightforward to 
modify the procedure to be able to compute a full 3D configuration. This is to be preferred over a CFD 
type shock capturing procedure since the forebody geometry is relatively simple and the MOC, even 
in 3D, requires only a single stream wise sweep. 

Another advantage of the formulation is the relative ease in being able to include imbedded shocks 
in the analysis. This is so since, as it will be shown, the user has a line along which to distribute any 
number of points. If a shock crosses the-line, then two points are assigned to the intersection, one for 
each side of the shock. It is then straightforward to apply the shock/characteristics conditions to each 
of these points in the same manner as the shock point described above. 

The basic equations for rotational , compressible flows are given by: 


3p _ 1 9p 
ds a 2 ds 

"ft dp _0_ _ sin 6 
pV 2 dc, dc, “ Mr 

ft dp 8 sin 9 

pV 2 dc 2 dc 2 Mr 
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where cl and c2 refer to the characteristic directions due to local Mach waves. The other characteristic 
direction required for rotational flows is a streamline. The first of these is an equation of state. The 
second and third equations are momentum conservation, and the last is an energy equation. Note that 
these are first order. In addition: 

•’■jf 

The derivatives are to be replaced by finite differences. The differencing takes place between 
stream wise stations and along the indicated characteristic direction. That means that die directions 
must be locally computed. Since the flow angle is one of the unknowns, these directions are not known 
to start with, so an initial guess is made. 

Generally, the solution procedure is to march downstream from some initial line of data. In 
marching downstream, the equations are solved at a series of points along a vertical line at the next 
downstream station. Wall information is used to start at the surface, and the computations proceed 
outward, point by point until the shock is reached. The solution at this station is then used to proceed 
to the next This continues until the inlet is reached. Two columns of points illustrating die set-up of 
the grid is shown in Fig. 5. Here, the characteristic lines are drawn from one point back upstream to 
the previous station. Since the values of the dependent variables at this point are dependent only on 
upstream information, all the points on the column can be computed independently. 



Figure 5. Finite difference grid points and characteristic directions used in the diffe rencin g , 
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The finite difference forms of the equations are as follows. 


£i±i Ei- 1 Pj+i Ei = o 

As a? As 



Pw-p. | 

Ac, Ac, 

Phi-Pi e .+i- e 2 _ 
Ac 2 Ac 2 


1 P,.i | vi + - H 


sin 8, 
M,r, 

sin 8 2 
M 2 r 2 


( 1 ) 

(2) 

(3) 

(4) 


Here the subscripts, 1 , 2, and s refer to the characteristic line on which the equation is being solved. 
Hence the right hand side of the second equations is being solved between the current point and the point 
on die previous station in the direction of the cl characteristic. The subscript “1” on the variables 
indicates that an average value is to be used. Since initially, no information is known at the unknown 
point, the first guess is the value at the previous station. When the first iteration is carried out, an 
approximate value of the variables at the new station will be known, and an average can then be used. 


As written, the equations have been “linearized” with the derivatives containing the unknowns in 
equations (1) , (2) and (3). Thus the nonlinear coefficients arc lagged by evaluating them with the last 
known values. These terms are usually formed as averages between the two stations. Equations (2) 
and (3) can then be combined to eliminate the flow direction. This gives 


p 1 
lpv 2 3 J 

Pl+ 



f ' 

lpv 2 > 

sinQ, sin0, 

P, 1 L 

, M,r, M 2 i^ 

/ 

p ) 

pv 2 J, 

4 M 

lpv 2 J 

2 


(5) 


The values of the variables at the last station which get used in these finite difference expressions are 
those which come from the intersection of the characteristic lines with the station location. As can be 
seen in Fig. 5, these intersections do not, in general, coincide with the points at the last station. Thus, 
an interpolation must be performed. This is currently done using a cubic passed between the nearest 
four points. Near the wall or the shock, a three point, quadratic interpolation is used. 


1. From the initial data line, a new shock location is guessed. Currently this is done by simply 
extending it from its current position in a straight line. 

2. In the distance between the surface and the shock, a number of grid points is distributed equally. 

3. Starting at the wall, where the flow angle is already known, equation (5) is used to solve for 
the pressure, equation (1) is used to solve for the density, and equation (4) is used to solve for 
the surface velocity. 
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4. Equations (5), (2), (1 ), and (4) are solved for pressure, flow angle, density, and total velocity 
respectively for each of die remaining interior points. The bulk of the work is done in this step 
as most of the points are interior points. The details of this step are given below. 

5. At the shock point, using the freestream Mach number and the initial guess as to the shock angle, 
the pressure downstream of the shock can be computed along with the flow direction. Either 
of these may then be used to compute the other using equation (3). For example, if the pressure 
was used to compute the flow angle with equation (3), then this is compared with that given 
by that computed from the guessed shock angle. The mismatch between these guides the 
adjustment to the shock angle. This is currently done by computing a new shock angle using 
the freestream Mach number and the flow angle given by equation (3). This new shock angle 
is averaged with the old one and the average value is used as the new shock angle guess, once 
convergence of the shock angle has been reached, equations (1) and (4) are used to find the 
density and total velocity. 

6. A new station downstream of the current one is located; the process repeats starting at step 2. 

Fig. 2 and 4 showed how the characteristic net is built up down stream from the initial data. The 
lines joining the solid points on one line to the open points on die previous line are the characteristic 
lines. Those shown are those which are obtained after several iterations. In each case, convergence 
was relatively rapid (usually 3-5 iterations are required per station). 

It is necessary to provide initial starting conditions for the MOC procedure. Since the equations 
governing supersonic, in viscid flow are hyperbolic, two sets of characteristics are necessary. Since the 
flow is also rotational, a third characteristic is also needed. For the leading edge region of the vehicle, 
this thir d characteristic is simply the freestream flow direction. Specification of the others requires 
knowledge of the leading edge geometry. This information will be obtained from the specification of 
the vehicle geometry and will be assumed to be known for purposes of this discussion. The remaining 
conditions required are the starting conditions. These are the values of the dependent variables at some 
station extending from the body surface to the bow shock. At present, the starting conditions for the 
MOC procedure is provided by computing placing an equivalent cone near the nose and applying cone- 
flow theory. 


Conical Flow Analysis 

Input to this section requires only the specification of die freestream Mach number, ratio of specific 
he ats , freestream static or stagnation temperature, and nose cone angle. In the case of a non conical 
nose, but with small stream wise radius of curvature, an effective cone angle can be defined as the cone 
which best fits die average slope of a specified small percent of the forebody as shown in Fig. 6. 
Currently this is 5-10%. The cone is projected forward to compute a cone apex. From here, the cone 


flow analysis computes the shock angle and downstream properties. 

The basic equations governing the supersonic flow over cones must be solved simultaneously for 
die two velocity components Vp and the radial and tangential velocity components along a ray 

emanating from the cone apex. Since they are nonlinear, it is necessary to use an iterative technique 
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for solution. The method we use here, starts by eliminating to obtain a single differential equation 

forV r . 



where 


Finite difference relations are used to change the differential equation into an algebraic equation. This 
equation is solved by starting from an initial guess as to the shock angle and marching in along radial 
lines (whose origins are at the nose point) from the shock to the surface. We are currently using 21 
stations. Upon reaching the surface, a check is made to see if the normal component of the velocity 
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is zero. If not, the shock angle is adjusted and the procedure is repeated. Convergence is attained when 
V w is less than a specified tolerance. We are currently using a rather severe tolerance and have found 
that about 4 to 6 iterations have been required. 

While it is not vital to make a good first guess as to the shock position, doing so reduces the number 
of iterations required. There have been several approaches far providing an initial guess and these 
indude: 

1. using the Mach angle associated with the freestream Mach number 

2. using the results from 2D oblique shocks 

3. averaging these two 

4. using an analytical curve fit 

Use of either of the first two of these results in a doubling of the number of iterations in some cases 
since. The first badly underestimates die shock angle for fat cones and the second always overestimates 
the angle. The most popular is averaging these and we initially used that for our initial shock angle. 
However, we found that the rather excellent analytical curve fit of Doty and Rasmussen[4] to always 
be within 2 degrees of the final answer and subsequently obtained a much closer approximation with 
it. Hor cones at an angle of attack, they also provide a very close analytic modification to the exact results 
for the modified shock cone. This is fortunate since the computation of the shock cone in this 
circumstance would be otherwise a rather lengthy computation. 

Since we found this aspect of the task to be useful as a stand-alone tool, a program was written 
around this procedure in BASIC and an example of the output screen in shown in Fig. 7 The user 
specifies the freestream Mach number and cone angle. Currently, the program assumes a ratio of 

ttx S 2. B0 t = 28.6888 (deg) 

Mach Angle Max Hedge Angle 

38.8888 deg 22.9735 deg 


6 (Have Angle) = 53.4229 deg ( A Iterations) 
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specific heats of 1 .4 which is typical for air and also assumes a freestrcam temperature of 400 deg R 
so that the velocities can be computed from the Mach numbers and sound speeds. The figure shows 
the number of iterations required, the shock wave angle, the surface pressure coefficient, and die surface 
Mach number. Properties along the rays is also available but not shown. These will be used as die initial 
conditions by the MOC procedure. The figure also shows a sketch of the resulting flow so the user 
can easily visualize the flow. The cone is drawn with the resulting shock and several streamlines are 
drawn to show how the flow turns behind the conical shock. A low Mach number was chosen only 
so that the features of the output could be seen. The result of putting the cone shown at a IS degree 
angle of attack is shown in Fig. 8. The output screen shows the resulting shock angle for various 
azimuthal angles around the cone. 

Fan 

Hup P2/P1 Angle 

1 2.8060 26.3798 30.8000 0.2752 29.3118 

2 2.8366 46.3798 28.6882 

w = Prandtl-Meyer Function (deg) 

p s Mach nave angle (deg) 



Figure 8. Example'of the PM stand-alone program output 


Inlet face 

Depending on the relative change of the stagnation pressure in the vertical direction, the flow 
entering the inlet will be divided into a number of stream tubes. The vertical stations of the forebody 
in general will not line up in any convenient way with these streamtubes. Further, the inlet face is not 
vertical either. Thus, the conditions at the inlet face must be computed in a separate fashion from the 
conditions in the forebody region. The rotational method of characteristics are still used, here but a 
separate routine was written specifically for the transition to the inlet streamtubes. 
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Inlet Analysis 

The flow downstream of the shock is likely to be rotational and as such stagnation quantities will 
thus be different on each stream line. It thus seemed prudent to divide the propulsion section into a series 
of small stream tubes with roughly rectangular cross section, in which the stagnation quantities are 
roughly constant The analysis in each of these stream tubes can then be accomplished individually 
and relatively simply using 2D oblique shock relations. In Fig. 9 the slicing of the propulsion unit into 
the streamtubes is illustrated. The internal geometry, a cross section view of one of die streamtubes, 
was seen in Fig. 3. The analysis then consists of the dividing process and the flow computation in each 
streamtube. The division process is currently envisioned to include an analysis of the severity of the 
stagnation quantities across the str eamlin es to assess the number of streamtubes that ought to be created. 
This process would also include the generation of the conditions across the face of each streamtube 
from the forebody MOC data. 



Figure 9. Division of the combustion chamber into separate vertical zones for computation. 
(Each zone contains a single stream volume in which the shock-expansion inlet calcula- 
tions, followed by Rayleigh line heat addition is performed) 
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The main effort, however, is to compute the supersonic flow inside the scramjet using shock/ 
expansion theory. The internal geometry consists of two side walls with ramps which compress the 
flow and a series of struts in between the walls near the minimum area. The flow through this region 
will encounter the two oblique shocks from the side walls which may or may not intersect prior to 
encountering the struts. The struts will create more shocks and expansions depending on their shape. 
These waves will likely intersect the sidewall shocks and all waves will eventually strike a some wall. 
One other flow feature will be the creation of slip lines at any of the wave intersections and, of course, 
there will be intersections of waves and slip lines (which we shall genetically also call a wave). Thus 
die flow inside the scramjet can become rather complex, but we have outlined a procedure below, have 
identified the subtasks required, and have begun to create coding for these subtasks. 

It is first useful to identify all possible types of waves and events which can occur in the flow in 
some organized fashion. 

The five possible wave types are: 


• shock waves of family I (right running) 

- shock waves of family II (left running) 

- expansion waves of family I 

• expansion waves of family II 

• slip lines (created at each wave intersection) 


The ten possible intersections are: 


• shocks of the same family 

• shocks of different families 

- shock intersecting a wall 

• shock intersecting a slip line 

• expansions of same family 

- expansions of different families 

- expansion intersecting a wall 

- expansion intersecting a slip line 

- shock/expansion of the same family 

- shock/expansion of different families 


In addition, shocks or expansions will be created at any geometry change of slope. 

Each of the intersection types has its own unique downstream flow and thus a separate module for 
each one is required. When one of the above intersections is detected, the proper routine is called to 
create the downstream information. In addition, waves will be created by a change in the geometry 
of the side walls or the struts. 
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While it seems that we are getting into a rather complex set of logic, it must be remembered that 
we are taking advantage of the fact the properties between waves are constant and hence large portions 
of the volume need not be computed We are now ready to describe the marching procedure and then 
will describe the coding we have created for this task to date. 

The procedure starts by computing the oblique shocks from each of die side walls. This is done 
by a routine called SHANG (SHock ANGle - named in honor of Joe Shang at Wright-Patterson Air 
Force Base) which provides the shock angles and downstream flow information. Next the location of 
the intersection of these two waves is computed from the geometry to determine if this occurs before 
encountering any struts. If so, the routine INSECT (written by a our graduate student - presumably in 
honor of Bob Roach who wrote SHANG, PM, and the cone flow programs) is called to determine the 
downstream quantities and slip line. This intersection is only the second station necessary since 
properties in between die inlet and this station are fixed as either free stream (inlet conditions) or those 
behind one of the shocks. If a strut occurs prior to the intersection, then the second station is the location 
of the leading edge of the strut At this point, two more oblique shocks are created. Again, SHANG 
determines their direction of propagation and downstream properties. 

The next streamwise station is where the next event occurs. This will either be an intersection of 
some kind or a change in side wall or strut geometry. Hence, it can now be seen that the general 
procedure is to march downstream determining the next station by the location of the next event The 
next intersection is determined by knowing the locations and directions of travel of each of the waves 
and the walls and struts. In between these locations, properties are constant The next streamwise 
station is found by simply determining the next intersection of any of the types listed above. This 
proceeds until the combustion chamber is reached. 

Analysis of the Flowfield Events 

Once an event is detected, the proper routine is called to compute the changes which take place 
at the intersection. Several specialty routines were written specifically for these events and are 
described below. 

1. Shock/Shock Intersection. Different Families (Subroutine SSDF) 

When shocks of two different families intersect, they essentially travel through one another with 
an interaction that depends on the relative strengths of the two waves. Downstream, two new regions 
are formed with the determining condition that a slip line exists between them as shown in Fig. 10. 
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Figure 10. Intersection of two shocks of different families. 


The flowfield in fields 0, 1, and 2 are already known with the flow in regions 3 and 4 to be 
determined. The slip line between the tworegions requires that the velocities in the two directions must 
be parallel and that the pressure across the slip line be continuous. The remaining task is iterating the 
two shock wave angles q 3 and q 4 . Using the oblique shock relations and marching from 1 to 4 and 2 
to 3, respectively, the condition of pressure equality yields 

Pi^Y-1 


sin’e 3 -£ 


nV 

Kj 


sin 2 6 
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and the condition of equal flow angles gives: 
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These are two transcendental equations for the unknown shock wave angles q 3 (shock 3) and q* (shock 
4) which are solved iteratively by a two- variable Newton iteration method. With the shock wave angles 
calrnlatffd, the flowfields in 3 and 4 can be determined out of the regular oblique shock relations. 
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2. Shock / Shock Intersection. Same Family (Subroutine SSSF) 


If two shocks of the same family cross then downstream there are two more shocks. If the angle 
between them is relatively narrow, it is possible that the intersection may result in the formation of a 
single shock wave which is illustrated in Fig. 1 1. 



Figure 11. Intersection of Shock waves of same family 

Few this event the flow conditions in 0, 1 and 2 are already known, such that only field 3 has to be 
determined. Given the flow angle in 2 and using the condition of equal flow direction in 2 and 3, the 
flow can be direedy calculated out of region 0 by using the subroutine SHANG. Let the deflection angle 
from 0 to 3 be d = I a 2 - ao I, then SHANG iterates the shock wave angle q 3 (shock 3) and die flow 
conditions in 3. This procedure can be used for both family I and family II waves. 
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3. Shock / Expansion Wave Intersection. D ifferent Families 


There are two possible ways in which shocks and expansions of different families may cross 
depending on their initial orientation. Fig. 12 shows die case where die expansion is a family I wave 
while the other is a family IL 



Figure 12. Intersection of Shock wave and expansion of different families. 

Again, the flow conditions in 0, 1 and 2 are known whereas fields 3 and 4 have to be determined. As 
before this is done in an iterative fashion. The relevant equations are given below. 

2 to 3: shock with deflection angle d = a 3 - a 2 > 0 
pressure ratio: 

=1+ ^tt( m 2 sin; 9 i‘ 0 
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deflection angle: 


ta n ( a 3 - ( x 2 ) = 


2 cot 0 3 (M 2 sin 2 0 3 - 1 ) 


2 + M 2 (y+ 1 - 2 sin 2 0 3 ) 

These are functions of the Mach number M2 (known) and the shock wave angle q3 (unknown). 


1 to 4 : isentropic expansion with deflection angle d = 34- ai > 0 and pressure ratio: 

T 


P4 

Pi 


fl + 


l 1 + 


Y- 1 

~T~ 

Y- 1 
2 


M 


M 



T- 1 


deflection angle: 

a 4 -a 1 = v(M 4 )-v(M J ) 


where the Prandd-Meyer function is defined as 

v(M) = tan ' 1 l) - tan " 1 V(m 2 - l) 

These are functions of the Mach numbers Mi (known) and M4 (unknown). The condition of pressure 
equality in 3 and 4 (p3=p4) gives: 
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The condition of the same flow direction (a3=a4) yields: 


tan 


-1 


2 cot 6 j(M 2 sin 2 0 3 - l) 
^2 + M 2 (y+ 1-2 sin 2 0 3 ) > 


+ a 2 -v(M 4 ) +v(M 1 ) - 0^=0 


A gain, these two equations can be solved iteratively with the Newton- iteration to determine the two 
unknowns qs and M4. Then using the given equations above, the conditions in 3 and 4 can be calculated. 
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CaseB: shock wave of family I / expansion wave of family II (subroutine SEDFB) 



Figure 13. Intersection of a family I shock wave with a family II expansion. 


2 to 3: expansion wave with deflection angle d = a 3 - a 2 < 0 
1 to 4: shock wave with deflection angle d = a 4 - ai < 0 

Since both times the deflection angle would be negative but the formulas given in Case A are only valid 
for positive deflection angles, it is better to set d = a 2 - a 3 and d = ai- & 4 , respectively. 

Otherwise the formulas of case A stay the same so that the condition of pressure equality in 3 and 4 
gives: 
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Similariy, the same flow direction yields: 

( 2 cot 0 4 (m* sin 2 0 4 - l) 1 


- tan 


+ a 1 + v(M 3 )-v(M 2 )-a 2 =0 


2 + Mj(y +1-2 sin 2 0 4 ) J 

Again, these two equations can be solved iteratively for the unknown shock wave angle q 4 and Mach 
number M 3 and the conditions in 3 and 4 can be calculated. 


4. Shock Wave / Expansion Wave Intersec tion. Same Family 

There are again two cases, as shown in Fig. 14 and 15. In the first case, both waves are of family 
I. In the second they are of family II type. 


Case A: both waves of family I (subroutine SESFA) 
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Since there has to be the same flow direction in 2 and 3: 
a) if (a^ap) <0 : the resulting wave is a shock wave 

By using the deflection angle d * \&2r and the subroutine SHANG field 3 can be computed out 

of 2. 

b~l if (a 2 -afl ) >0 : the resulting wave is an expansion wave 

By using the deflection angle d = a 2 - ao and the subroutine PM field 3 can be computed out of 2. 
(Remade: The incoming shock and expansion waves can be interchanged since the conditions in 2 
which represent the state behind both incoming waves and are given already determine the fiowfield 
in 3.) 

CaseB: both waves of family II (subroutine SESFB) 

This represents simply the mirror image of case A, such that: 

a) if (a 2 ~aQ) <0 : the resulting wave is an expansion wave (use PM) 

b) if (a 2 ~an) >0 : the resulting wave is a shock wave (use SHANG) 

5. Expansion Wave / Expansion Wave Intersection. Different Fancies, (Subroutine EEDF) 

Here two expansion fans of different families intersect (Fig. 15). 
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Here there are two different isentropic expansions from 2 to 3 and 1 to 4, respectively. Using die already 
mentioned formulas, pressure equality in 3 and 4 gives 
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The same flow direction in both fields yields the equation: 

a 2 - v(M 3 ) + v(M 2 ) -ctj- v(M 4 ) +v(Mj) =0 
As before, iterative solving gives the unknown Mach numbers M3 and M4. Therefore, the conditions 
in 3 and 4 can be determined. 


6. Expansion Wave / Expansion Wave Intersection. Same Family (Subroutine EESF) 
As shown in Fig. 16, in this case thw two expansions are of the same family. 


exp. wave 2 
s 



area i 


area i+1 




Since the conditions in 2 are already known, the flowfield in 3 can be calculated by a simple Prandtl 
Meyer expansion from 0 to 3 with deflection angle d = la2- aol using the subroutine PM. 

7. Shock Reflection at Slip Line 


Case A: shock of family I (subroutine SRSPA) 



Figure 17. Reflection of shock from slip line in an unlike sense. 

Since the air in field 1 is not at rest, the reflection of shock 1 and the slip line affects also this region 
and therefore not only shock 1 changes to expansion wave 1 but also a second shock (shock 2) is created 
to deflect the upper airflow. So the resulting flowfield in area i+1 lodes like the one of the shock/ 
expansion wave intersection (event 3, case A) and will be treated in similar fashion. 

CaseB: shock of family II (subroutine SRSPB) 

This is the mirror image of case A and for the same reason as above it will be treated like event 3, case 

B. 
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This case is similar to event 7 of a shock reflection at a slip line where field 1 above die slip line 
is also affected by the reflection and in addition to shock 1 a second expansion wave (exp. wave 2) is 
created. Here, the flowfield in area i+1 is identical with the one of the shock/expansion wave 
intersection of different families (event 3, case B). 

CaseB: expansion wave of family II (subroutine ERSPB) 

For the same reason, this intersection can be treated like event 3, case A. 

10. Expansion Wave Reflection at Solid Wall (Subroutine ERW) 



The condition for determining the flowfield in 3 is the flow angle along the wall, = a. Therefore, the 
deflection angle for the shock from 2to3isd= aj-a2 and PM can be used to calculate the conditions 
in3outof2. 

Some Auxiliary Routines used by Inlet 
Subroutine SHANG 

As mentioned, for each of the intersections, a different segment of code is called to determine the 
downstream quantities. There are, however, many similarities between each of the routines. All, for 
example make calls to the oblique shock routine, SHANG, and several make calls to the corresponding 
expansion routine PM (for Prandtl-Meyer). Listings of the SHANG an PM subroutines in FORTRAN 
are provided in the Appendices. 
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SHANG works by computing the shock wave angle from the oblique shock expression: 

„ 2(M?sin 2 0-l)cot0 

tan5 = — - — — =— r 

2 + Mf(y + l-2sin 2 e) 

where 5 is the wedge angle and 0 is the shock angle with respect to the upstream flow direction. 

The equation is transcendental in the shock angle and an iterative procedure must be used. Great 
care must be taken in the iterative procedure since the function is multivalued and badly behaved near 
the desired value. We use a Newton iteration procedure that is extremely fast However, without taking 
a good initial guess Newton’s method can easily diverge. We have prevented this by taking a rather 
good first guess by fitting a parabolic fit to the exact solution which is best in the region of greatest 
difficulty. The three pieces of information necessary to specify this parabola are known from the given 
information. These are the Mach wave angle (where the function has a vertical asymptote), the shock 
wave angle corresponding to the maximum wedge angle for an attached shock (function of Mach 
number only), and the fact that the oblique shock formula has a zero gradient with respect to the shock 
angle at this point 

With this initial condition we have yet to find a case where the procedure diverges. Convergence 
occurs to 5 decimal places in 4 to 5 iterations. Near the ill-behaved region, convergence is typically 
in 3 iterations. 

Subroutine PM 

Similarly, the PM routine provides a computation of the Prandtl-Meyer function which describes 
the isentropic expansion of a supersonic flow as it turns a comer away from its flow direction. In this 
case, the relationship is between the Mach number and the Prandtl-Meyer angle. The PM angle changes 
by the same amount that the flow turns andeach PM angle has associated with it a unique Mach number. 
ThusPM works by evaluating the PM angle for the given inputMach number and adds the turning angle 
to the PM angle. The new Mach number is then determined from the new PM angle. Since the PM 
equation is transcendental in the Mach number, an iterative procedure is again required. We again use 
Newton iteration, but have no need to be careful of the initial guess since the PM function is well- 
behaved. 

For the various intersection problems, most are a straightforward application of either SHANG 
or PM. The intersection of any wave with a wall or a slip line, forexample is a direct computation using 
oblique shock or Prandd-Meyer relations. Intersections of waves of the same family is another 
example. Only the intersection of waves of opposite families is not a direct computation because the 
equations involved are nonlinear. In this case an iterative solution is required. A popular method is 
to make an initial guess for the downstream flow direction. This defines the remaining variables in the 
two regions downstream of the intersection. The flow directions are forced to match by choosing the 
direction. The other requirement is that the pressures must also match. Comparing the computed 
pressures shows which way the next flow direction ought to be used. 
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Interface between Inlet & Combustor 

The oblique shock/expansion method used in each of the stream tubes results in a number of distinct 
regions between shocks, slip lines and expansions. These regions must be combined to give an overall 
flow for the combustion zone. This is done by using the conservation laws applied to a one dimensional 
mixing of several flows. It turns out that there are two solutions, one for subsonic flow and one for 
supersonic flow. In the case of the sc ramjet assumed hoe we always take the supersonic solution. 
Later, when ramjets are used, the subsonic solution can be selected. 

Combustion Zone Analysis 

The flow field through the inlet up to the end of the struts computed by the above analysis 
provides the initial conditions for the combustor. The flow in each of the stream tubes enters the 
aft portion of the scramjet to mix and bum with the fuel. One now requires an estimate of the 
overall heat release, fuel required to effect the heat release, and the resulting change in gas 
properties at the end of the combustor. Although mixing and combustion is an extremely 
complex process and a vitally important part of the system performance calculations, a simple 
model based on Rayleigh line thermodynamics provides a useful approximation. An improved 
model is under development that incorporates appropriate estimates of mixing effects, chemis- 
try, and distributed heat release. 

The Rayleigh line equations expressing the changes in gas properties are 
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The heat transferred in the combustion process must be determined by inserting appropriate 
combustor end conditions and then using the energy equation to determine the amount of 
propellant flow required to produce the desired end conditions. The latter is best expressed as 
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the fuel mass fraction (ratio of fuel mass flow rate to air mass flow rate) 


where 

and 


f - Tp4~T 0 3 

Ib^-To* 

C P 

Qr = Fuel Heating Value 
rib = Combustion Efficiency 


The corresponding equivalence ratio is 

§ = Equivalence Ratio = - 

'stoichiometric 

where f s toichiometric * s the stoichiometric air/fuel ratio. 

Certain constraints must be addressed in the computation. In particular, one must not 
introduce so much heat flux that the channel is thermally choked. To avoid this, the exit Mach 
number is constrained to be above a limit value taken to be M 4 = 1.15 in the present version of 
the code (all such parameters are easily modified as necessary). 

In running the program, the user may specify the equivalence ratio. This number may be 
larger than unity, expressing a fuel-rich environment with the unbumed fuel assumed to be mixed 
with the combustion products at the combustor exit Such mixing may be beneficial in some 
flight environments mainly because of the lower molecular weight of the mixture and the cooling 
effect of the unbumed hydrogen. Combustion heat release is allowed up to the point that one of 
three conditions exists: 


1. Maximum allowable channel static temperature is exceeded. 

2. Soichiometric fuel/air ratio is achieved 

3. Thermal choking is imminent (M 4 < 1.15) 


If the selected value of <f> does not result in any of these conditions, then the program determines 
the heat release and corresponding combustion streamtube exit conditions. 

If equivalence ratio is not specified, the program computes a value representing the 
maximum that satisfies the thermal choking the three constraints. The algorithm first assumes 
M 4 =1.15 and then checks to be sure that condition 1 is not invoked. A computed <J> up to a value 
of unity is determined. If the user requires the fuel-rich case, then the program must be rerun with 
the desired value of 4 >. The program assumes that maximum allowable combustion chamber 
temperature is 5500 °R. This limit may be changed to better match the material property 
limitations and surface cooling details of the combustor. 
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If a fuel-rich condition exists at the end of the combustor, the program iteratively adjusts the 
exit gas properties to reflect the resultant change in molecular weight, gas constant, and specific 
heat ratio. 

Aftbody Method of Characteristics 

The flow in the aftbody or nozzle region, like the forebody, uses a rotational method of 
characteristics. The starting conditions for the aftbody MOC (Subroutine MOCA) are provided by the 
flow quantities at the exit plane of the combustor. In addition, the comers of the exhaust plane are 
locations of expansions caused by the body shape cm the inner comer and the great difference in 
pressure at the outer comer. The expansion values are computed using isentropic and shock relations 
similar to those used in the inlet program. These are applied at the comers only. Propagation of the 
expansion is left up to the MOC. 

An additional feature in the aftbody region is the presence of a slip line between the gas flow from 
the propulsion system and the external flow field. Thus provision must be made in the MOC procedure. 
The manner in which this is done is as follows. Two points are placed at a slip line. They can be 
coincident for convenience. One point is considered to be just on the body side of the slip line while 
the other is considered to be just on the shock side. The point on the body side is computed using the 
single characteristic line which is inclined toward the body surface. The point on the other side, uses 
the characteristic line inclined toward the shock. The additional information required comes from the 
requirements at a slip line. That is, the flow must be parallel and the pressure must be continuous across 
the slip line. Again, the system is transcendental, but a fast solution procedure was set up. 

Other Routines used in the Computation 

In addition to the main computational modules just described, it is necessary to devote special 
attention to the interfaces and to deal with special regions of the flow outside the main flow through 
the propulsion duct 

Cowl Lip : Flow external to the propulsion module is required since the exhaust region mixes with this 
flow downstream of the propulsion system. The flow in this external region is generally different from 
the frees tream since it has already traversed the bow shock. In addition, there will usually be an 
expansion at the cowl lip which is computed here by simple expansion theory. 

Interface at combustor exhaust with external flow: The flow through the propulsion system has had 
much energy added. As a consequence, its pressure has been greatly raised. But while it has been 
partially expanded in the aft portion of the combustor, much of its final expansion will take place in 
the aft body region. Thus the gas exiting the combustor is at a higher pressure than the external flow. 
Since the gas will thus undergo an expansion, the external flow will see a compression. This results 
in a combination of a shock wave, expansion waves, and a slip line at the outer comer of the combustor 
exhaust These conditions are computed using oblique shock/expansion theory in an iterative fashion. 
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Combustor exit plane: For the rest of the combustor exit plane, the quantities at the end of each 
stream tube must be interpolated to align with the beginning of the characteristics net of the aft 
body region. This is done using parabolic curve fits. 

Program Operation 

The user interacts with the code (in its standard UNIX environment) through an input data 
file which contains all of the freestream quantities, fuel characteristics and flow rate, and vehicle/ 
propulsion system geometric parameters. The user is thus free to specify completely different 
freestream quantities such as Mach number and angle of attack as well as completely different 
vehicle geometries through the data file. Example input files are shown in Appendix 2. A 
standalone Apple Macintosh version of the program was also written enabling users to run the 
program on small desktop machines. Operation of the program is similar to the standard version 
except that results are read into data Hies for later graphing operations and extensive output is 
presented on the screen. This approach will be developed further with a complete graphical 
interface to simplify modification of parameters and to enable interactive study of variations in 
those parameters in an animated presentation mode. 

The user never needs to make any changes to the main program itself, though there are a few 
places in the code itself where some parameters can be adjusted for accuracy or for simplicity. 
These include such things as the location on the forebody where the coneflow solution is to be 
applied to start the forebody method of characteristics and the number of vertical stations in the 
fore and aftbody regions. These may never have to be adjusted as reasonable values are currently 
used, but may be if desired. 

It is important to point out however that there are severe limitations to the validity of the 
present code with the MOC forebody analysis when applied to geometries different than the one 
shown in Figure 1 . Compression waves on the underside of the forebody are not accommodated 
in the computations. A second version of the program (Macintosh format) was developed to treat 
such problems using shock/expansion techniques until a shock-embedding scheme is imple- 
mented in the forebody code. It was utilized in the preliminary UX-30 computations to be 
described in the next section. 

Program Output 

The complete solution of the flow on the underside of the vehicle is available as an output 
option. Contour plots of sundry flow variables can then be attained to study the character of the 
hypersonic flow in and around the geometry. The flow data may be put into files which can be 
used by such data reduction programs as PLOT3D. In addition, the net forces and moments are 
computed from a knowledge of the net changes in the mass and momentum fluxes and pressures 
on a control volume surrounding the underside flow region. 
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RESULTS 


In what follows are presented some initial computations utilizing the algorithms just 
described. This section is broken up into two parts describing results for the two test vehicle 
geometries. The inpurt parameters are shown in the standard input file format in Appendix 2. 
A variety of flight conditions and vehicle attitudes were studied to identify any program bugs and 
to enable initial assessments of the validity of the various computational modules. 

Results for NASA UX-30 Configuration 

A generic configuration shown in Fig. 21 was used to represent the (Two-D) vehicle 
geometry. The propulsion duct was assumed to span the full width of the vehicle (33.33 ft). The 
table shows the coordinate points identified in the figure. In addition to the points, nozzle 
entrance and exit angles were specified as 25 and 5 degrees respectively. The nozzle contour was 
then represented by a fourth-order polynomial from which a set of seven points were computed 
to use in the UX-30 data file (see Appendix 2). 



Body Coordinates 



X 

finches) 

y 

finches) 

1 

0 

0 

2 

640.4 

56 

3 

844.7 

83.8 

4 

954.9 

104.9 

5 

1114 

145.4 

6 

1114 

154.5 

7 

1202.4 

145.4 

8 

1501.2 

44.6 

9 

1800 

0 


Cowl 


Notes 


x is measured aft from nose station; 
y is measured down from nose station 

Cowl lip is assumed to be directly 
below point 5 in this calculation 

No rearward cowl overhang is 
represented in these preliminary 
results 


Figure 21. Definition of UX-30 Configuration 
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The computer program was run with conditions representing flight at 95,636 ft. Mach 
number and angle of attack were varied. Table 1. shows typical input sequence and output from 
the computer program (Macintosh version: UX-30) for an angle of attack of a = -3 degrees and 
flight Mach number M = 10. 

Theresults show that performance is consistent with publishedresults showing a fuel specific 
impulse of about 1500 sec. The thrust vector points downward relative to the flight direction. 
This is the mainly theresult of neglect of boundary layer offsets in the nozzle flow. A large 
pitchup moment accompanies the downward pointing thrust vector. The line of action of the 
thrust vector crosses the vehicle reference (x-) axis at a point approximately one-third of the body 
length from the nose. Pitch moment about the mass center is readily determined from this 
informationA 

Thrust and moment coefficients are also computed. These are defined as 
C T — I_, C M 

qooAjnjet q»Aj n i el L 

where T is the thrust vector magnitude, M is the pitching moment about the origin of the vehicle 
coordinates, and L is vehicle length. The sc ramjet inlet area is used as the reference area. 

A quick check of the operation of the complete program is provided by printing of the 
average values of Mach number, velocity.and both static and total pressures and temperature at 
each main station along the vehicle underbody. For the selected equivalence ratio (<{> = 0.67 1 ), 
there was insufficient combustion heat release to approach the limiting exit Mach number and 
maximum temperature constraints. Thus, a larger fuel flow rate (higher throttle setting) is 
available for the flight conditions and vehicle attitude represented. 

The program operation was checked further by running sweeps over a fairly comprehensive 
Mach number and angle of attack space. The vehicle did not operate well in scramjet mode at 
Mach numbers below about 6.5 as evidenced by the failure of the program to achieve converged 
nozzle flow. Operation appeared normal over a range of Mach numbers up to about 19. Again, 
difficulties with nozzle MOC convergence prevented useful output above that Mach number. As 
higher Mach numbers were reached, the available angle of attack range grows narrower. At 
Mach 19, the system would not operate outside an angle of attack range (0 < a < 1.5 degrees). 
Reasons for these results may be either actual physical limitations of the chosen configuration 
or may be due to strictly numerical difficulties. The former seems to be the correct explanation, 
since the version of the program written to address the generic NASP geometry showed similar 
behavior over a different range of parameters. 

Figures 23-29 show plots of basic performance output as functions of vehicle angle of attack. 
Curves are plotted for constant Mach number in the stated range. The relatively smooth variation 
with attitude and Mach number suggests that the code is working correctly at least from the point 
of view of internal consistency. The plots display systematic changes from one flight condition 
to the next that are consistent with physical limitations. The significant downward thrust angle 
emphasizes the need to incorporate boundary layer effects in both the nozzle and theforebody 
compression ramps. Also, the large adverse pressure gradient at the end of the nozzle would 
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TABLE 1 

Typical Program Input/Output Sequence 


Input Sequence: 

Enter Desired Equivalence Ratio (ERmin): 0.67 1 

Enter Mach Number Range (Mstart,Mfinal,DeltaM): 10,10,1 

Enter Angle of Attack Range (Astart,Afmal,DeltaA): -3,-3, 1 

Enter Plot File Name [type NONE if none reqd.]: NONE 

Enter Input data file name: UX-30.dat 


SCRAMJET THRUST VECTOR ANALYSIS 

Flight Conditions: 

Minf =10.00 Alpha =-3.00° 

Tinf = 406.44 °R Toinf = 8535. °R Pinf= 27.830 psf 
Dynamic Pressure = q = 1948. 100 psf 

Vehicle Geometry: 

Total Length = 149.79 ft 
Module Inlet Area = 25.23 ft A 2 
Ai/Acapture =0.224 

System Performance: 

Ct =4.439 Cm =1.397 
ISPfuel = 1576.86 sec 
Effective Equivalence Ratio = 0.671 
Air Mass Flow Rate = 49.28 slug/sec 
Fuel Mass Flow Rate = 0.96 slug/sec 
Fx = 48908.7 Ibf Fy =-212628.1 lbf 
Thrust = 218180.6 lbf 
Thrust Angle = -77.05° 

Moment about Origin = 10284961 ft-lbf 
Thrust line-of-action = 0.327 


Average Flow Properties in Duct: 


Station 

M 

V [ft/sec] 

T[°R] 

To [°R] 

P [psf] 

Po [psf] 

Free Stream : 

10.00 

10942. 

406.4 

8535. 

27.8 

1181084. 

Duct Inlet Plane: 

6.94 

9881. 

801.9 

8535. 

277.3 

1091118. 

Combustor Inlet : 

6.95 

9638. 

801.5 

8535. 

276.8 

1090910. 

Combustor Exit : 

3.37 

8759. 

4494.8 

11141. 

293.4 

23866. 

Nozzle Entrance : 

3.37 

10512. 

4496.5 

11141. 

293.9 

23866. 

Nozzle Exit : 

6.15 

11387. 

1583.3 

9378. 

8.0 

44183. 
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Results for Generic NASP Configuration 


A geometry obtained by scaling dimensions from the NASP-like vehicle described in Aviation 
Week (AWST) was used in the following computations. The information in Appendix 2 is 
essentially the data file used to run the program. Figures 30-36 are constant Mach number 
contours of air mass flow rate, specific impulse, equivalence ratio, thrust coefficient, thrust, 
thrust angle, thrust line of action, moment coefficient, and pitching moment with angle of attack 
as the main parameter. The trends are similar to those for the UX-30 vehicle. However there 
are very significant performance differences showing the great sensitivity to seemingly small 
geometry variations. Flight conditions illustrated correspond to an altitude of 100,000 ft An 
equivalence ratio of 1.1 was used for the calculations. The solid curves are for Mach numbers 
up to 7. At M = 7, the best performance was achieved as measured by fuel specific impulse. A 
vehicle length of 200 ft was assumed. The calculations are for a single engine module that has 
a channel width approximately one-fourth the vehicle width. Dashed curves are for an 
apparently different family of behavior for Mach numbers greater than 7. 



Figure 30. Mass Flow Rate vs Angle of Attack for AWST Vehicle 
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Fuel Specific Impulse, Isp (sec) 



2 




Figure 32. Thrust Coefficient vs Angle of Attack for AWST Vehicle 



Figure 33. Thrust Vector Magnitude vs Angle of Attack for AWST Vehicle 
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Intersection of Thrust Vector with Vehicle Axis, 



Angle of Attack, a (degrees) 



44 




Thrust Pitching Moment, M (ft-lbf) 



Figure 35. Moment Coefficient vs Angle of Attack for AWST Vehicle 
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Some additional results are shown in the Fig. 37-56. These are detailed plots of the flow 
properties determined by the program as functions of position in the flow field. They are divided 
into 6 groups. In groups I-m,plots of density, pressure, temperature and Mach number are 
presented. In groups IV-VI, only pressure and Mach number variations are plotted. 

L Surface variation of some of the variables with Mach number (Figs. 37-40) 

n. Surface variation of some of the variables with Angle of Attack (Figs. 41-44) 

IE. Contours in the Fore and Aft Body Regions for varying Mach numbers (Figs. 45-48) 

IV. Contours in the Forebody Region for varying Mach numbers (Figs. 49-50) 

V. Contours in the Aftbody Region for varying Mach numbers (Figs. 51-52) 

VL Contours in the Forebody Region for varying Angles of Attack (Figs. 53-54) 

VIL Contours in the Aftbody Region for varying Angles of Attack (Fig. 55) 

In Fig. 37-40, the results are shown for 5 Mach numbers (5, 7, 9, 1 1 , and 1 5). Hence the effect 
of Mach number on the flow is readily seen. Many of the flow features to be mentioned in the 
text point to the fact that the body shape given does not appear to be an optimum shape. This 
is not surprising, given the fact that its dimensions were derived by scaling an artist’s concept 
drawing of the National Aerospace Plane from Aviation Week and Space Technology. 

Group I. Surface Variation with Mach Number 

In these figures, the values of density, pressure, temperature, and Mach number were 
recorded on the body surface from nose to tail. They are individually displayed in this series of 
four plots. In each figure a separate curve is used for each Mach number. The Mach numbers 
for each of the curves is recorded at the start and end of each of the curves for clarity. In addition, 
the lower body surface of the vehicle is drawn above the graph so that the relative locations can 
be more easily assessed. 

The curves on each of the figures Show many of the expected flow features. On the forebody, 
the rapid expansion near the nose is seen as a rapid drop in the thermodynamic variables and rise 
in Mach number. A small indentation near the center of the forebody is seen to result in a mild 
compression which accounts for the forebody expansion not being monotonic. The compression 
in the inlet is seen by a rapid rise in the magnitudes of the density, pressure, and temperature and 
drop in Mach number. 

At the combustion chamber, there is an abrupt change in the variables since no attempt is 
made to compute the length of the mixing/combustion zone. So for graphical display, heat is 
shown to be added at a single station. This is followed by an isentropic expansion in the aft 
portion of the combustion chamber. Thus a smooth acceleration is seen as the end of the 
combustion chamber is approached. 

Just outside of the combustor exhaust is a 27 degree expansion which accounts for the sudden 
drop of the thermodynamic variables and the corresponding rise in Mach number. This is 
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x-coord (ft) 

Density Cslug/ft*3) ft long Vehicle Surface 
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x-coord (ft) 

Temperature Cl) Along Uehlclo Surface 
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x-coord (ft) 

Mach Nunber Along Vehicle Surface 


followed by a gradual compression downstream as the flow progresses along the concave 
afibody. The values of the variables on the aft body are affected by this compression as well as 
the impingement of expansion waves from the outer comer of the combustor exhaust and 
compression waves reflected from the slip line. These conspire to give a rather confused type 
of behavior of the variables on the aft body surface. This really only means that the body used 
does not appear to be an optimum surface. 

Group II. Surface Variation with Angle of Attack 

In this series the angle of attack is varies at a freestream Mach number of 9. The angles used 
are from a negative 3 to 6 degrees. At an angle of 8 degrees the bow shock enters the inlet for 
this configuration and the solution procedure is stopped. The main effect of angle of attack is 
make changes in the variables on the forebody. The forebody Mach number in particular is 
lowered with increasing angle of attack as a larger disturbance is exposed to the flow. 
Correspondingly the thermodynamic variables are all increased in response to the greater 
compression. 

Downstream, the flow is less affected by changes in the angle of attack. This is particularly 
true of the Mach number which appears to be largely independent of the angle of attack once it 
enters the inlet. The thermodynamic variables still increase in the downstream portions of the 
domain in response to increases in angles of attack, but at a somewhat lessor amount than on the 
forebody. 
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x-coord (ft) 

Density (slug/ft A 3) Along Uehicle Surface for Uarious Anglos of Attack 
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x-coord (ft) 

(psf) ft long Uehlcle Surface for Uarious Angles of Attack 




x-coord (ft) 

Tenperature C°R) Along Uehicle Surface for Uarious Angles of Attack 
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x-coord (ft) 

Mach Nunber Along Uehicle Surface for Uarious Angles of Attack 


Group EL Contours in the Fore and Aft Body Regions for varying Mach Numbers 


In this series of figures, contours are given of the density, pressure, temperature, and Mach 
number in the flows over the fore and aft surfaces. These figures show the main features of the 
flow in these regions. In each figure, the forebody region is given in the left side and the aft body 
region given on the right. The two regions were place a distance apart corresponding to the 
distance occupied by the scram jet module. In each figure, the upper boundary is the body surface 
and the lower boundary is a shock wave. 

The reduction in shock angle with increasing Mach number is clearly seen in each of the 
figures and is evident in both fore and aft regions. The expansion around the convex portions of 
the forebody can also be seen as lines emanating from the body as if they were expansion waves. 
It may recalled that expansions are line of constant properties whose angle is equal to the local 
Mach wave angle. Hence, many of the contours can be thought of as Mach waves. 

In each of the forebody figures, the bow shock is seen to be curved as would be appropriate 
for an expanding flow over the roughly convex shape. The small compression caused by the 
presence of the dent near the center of the forebody is seen most clearly in the temperature and 
density contours and to a lessor extent in the Mach number contours. 

In the aftbody regions, the external shock wave is evident in all figures. It is also curved as 
expected. In addition, the slip line can be seen in the temperature, density, and Mach number 
figures. It does not show up in the pressure contours since the pressure across a slip line is 
constant and is thus not remarkable for that variable. 

The other main feature visible in these figures is the compression caused by the concave 
aftbody surface. This compression is most clearly seen in the Mach number contours. At the 
lower Mach numbers, the compression is seen to be emanating from the location of severest 
curvature on the aft body. At the higher Mach numbers is has become more closely aligned with 
the aftbody surface. If the compression becomes too strong, then it can cause some stability 
problems with the Method of Characteristics routine. The user should be aware that the fix is 
relatively easy by simply reducing the distance between stations. Other flow features are seen 
more clearly in the close-ups of these regions in the next two series. 
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Temperature Contours 


in the Fore and Aft Body Regions 




Group IV. Contours in the Forebo dv Region for varying Mach numbers 


Here, only figures of the pressure and Mach number were made. These figures were made 
to show the features in these regions more clearly. In the Mach number contours, a small 
mismatch between the coneflow routine and the forebody MOC results in a wave near the nose 
which appears to reflect off the bow shock. The wave diminishes rapidly after that and is 
essentially gone by the time the flow reaches the middle of the forebody. It does seem to hit the 
surface near the dent and may be affecting the flow near the dent, though it is likely a weak event 

Group V. Contours in the Aftbod v Region for varying Mach numbers 

In the aftbody contours, the expansion at the combustor exhaust is clearly evident At the 
outer edge, the pressure of the freestream is much less than the energized flow from the engine 
and an expansion is taking place at the outer edge for this reason. Near the body surface, the 
intersection of the aftbody with the combustor is at a 27 degree angle causing the flow to turn 
by that amount. In both cases, the expansion fans are clearly visible. These fans cross each other 
and reflect off the body surface and the slip line. The reflection from the slip line can be seen 
to produce a slight compression as the expansion waves reflect from the slip line in an unlike 
sense. The effect of the compression is to cause a deflection of the contour lines away from the 
slip line and is most visible in the Mach number contours at the higher Mach numbers. 

The slip line is seen to curve upward in response to the continuous series of expansions 
hitting it. This, in turn causes the flow between the slip line and the shock to also undergo its 
own expansion. This is most clearly seen in the Mach number contours at the lower Mach 
numbers. At the higher Mach numbers, the expansion fan from the inner comer does not hit the 
slip line until further downstream. Hence there is less slip line curvature at the higher Mach 
numbers. 

Another interesting feature are the angles of the expansion waves nearest the core of the 
exhaust flow. As the Mach number increases, the Mach wave angle becomes smaller which 
lengthens the triangular core region between the two expansion fans. 
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Mach Number Contours in the Forebody Region 
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VI. Contours in the forebody region for varying angles of attack 


The most evident effect on the flow near the forebody of changing the angle of attack is to 
cause the shock to move closer to the surface. The pressure contours are rather unremarkable 
in any other way other than to point out that the small compression is seen near the indent at about 
the midpoint of the forebody. The Mach number contours more clearly show the compression 
and also show that the compression moves close to the shock with angle of attack and at 6 degrees 
actually intersects it In addition, the slope of the Mach number contours in the nose region near 
the shock change direction. 


VII. Contours in the Aftbody Region for varying Angles of Attack 

The final figure shows the pressure and Mach number contours in the aft body region at 
angles of attack of -3, 0, 3, and 6 degrees. As before, the first noticeable change is that the regions 
diminish in size slightly as the angle of attack increases. The distance between the body and the 
slip line at the aft end, for example, decreases by about 50% with angle of attack change from 
-3 to 6 degrees. That the remaining qualitative features of the flow change little is consistent with 
the relative insensitivity to angle of attack changes of the variables on the surface seen above. 
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Pressure contours in the Forebody region for varying angles of attack 



Mach Humber contours in the Forebody region 
for varying angles of attack 
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CONTINUED DEVELOPMENT OF THE PROGRAM 


The program was designed to provide the user with an estimate of the change in forces and 
moments on a hypersonic vehicle due to changes in pitch and changes in various geometric and 
propulsion system parameters. The code was primarily oriented toward finding the solution for 
the flow field as quickly and as accurately as possible. Various methods were chosen for distinct 
regions of the flow based on these criteria. Thus the code does solve the entire flow field on a 
hypersonic vehicle underbody, including the propulsion system, in an extremely short time (less 
than one minute CPU time on a small mainframe and about one minute on a workstation class 
machine). 

As development of the code proceeded, though, it became clear that a number of changes 
or additions would result in greatly improved flexibility and, in some cases accuracy, without 
sacrificing the great speed at which the procedure computes the flowfield. This document 
outlines the major changes to the program which would implement these improvements. A 
major goal will be to incorporate models that can accommodate imbedded shock waves. Only 
in this way can realistic vehicle geometries be analyzed accurately. 

1. A fully 3D Version - The present code was mainly oriented toward vehicle configurations 
which used either axisymmetric or flat forebodies so that a two dimensional Method of 
Characteristics procedure was used. It was somewhat fortuitous that it became possible to do 
other shapes as long as a knowledge of the local body curvature was available and there was no 
crossflow. Thus virtually any shape may be analyzed at any angle of attack as long as there is 
no yaw. In order to be able to do a problem with yaw, however, requires use of three dimensional 
equations. Thus a three dimensional form of the Method of Characteristics is recommended. 

To implement the three dimensional form of the MOC, essentially the same code will be used 
in projected streamline planes as in Rakich [2]. Modifications to the present MOC will include 
the addition of the third momentum equation and changes in the geometric quantities in the other 
two momentum equations. Ordinarily, one would expect a significant slowing of the computa- 
tional procedure since there are now multiple stream wise planes whereas the original MOC code 
had only one each across the fore and aft bodies. In addition, the time should be greatly increased 
because of additional iterations to convergence on all these planes. However, Rakich indicates 
that iteration is rarely required to reach convergence and can be dropped as a requirement Since 
the present program already solves multiple stream wise planes (one for each propulsion system 
module) one at a time, the new procedure would solve all of them simultaneously. This would 
result only in increasing the memory requirement of the procedure and the execution of the 
coupling terms in the equations, resulting in an estimated increase of 20-25% CPU time. 
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2. Imbedded shock version of the M OC procedures - In the currently envisioned design, the 
exhaust portion of the cowl extends past the exhaust/body intersection. This extension is to be 
used to redirect the flow to change the direction of the thrust vector. Any movement of the 
extension or flap, will result in a shock or an expansion. As a consequence, shocks may exist 
in the aft body region. As a consequence, it would be worthwhile to be able to add a shock 
tracking feature to the method of characteristics computation. As previously mentioned, this is 
not a conceptually difficult exercise and should be a straightforward extension of the Hartree 
MOC procedure. 

3. Ramjets version - Since the current propulsion system is assumed to use scrarajets, the code 
is restricted to hypersonic vehicles in mid-supersonic through hypersonic cruise configurations. 
There are, however, a number of interesting configurations at the lower supersonic speeds which 
may be using Ramjet propulsion systems, such as the High Speed Civil Transport and the 
SANGER vehicles. In this case, the inlet and combustion systems need to be modified to allow 
subsonic flows. The changes required would be to allow for the terminal normal shock in the 
inlet to be located at an appropriate minimum area and to allow for subsonic combustion in the 
combustor. Since these are fairly easy to implement within the framework of the present code, 
this enhancement should be fairly straightforward. 

4. Addition of boundar y layer effects - These are currently ignored in the inviscid analysis. 
However, the effects of viscosity and turbulent heat transfer can be quite significant since the 
boundary layer is rather thick on the body surface under the flight conditions being stated. Thus 
it is deemed an important addition to be able to provide reasonable estimates of the viscous heat 
transfer at the surface. This may be done very easily by incorporating any of a number of 
boundary layer programs. All are fairly rapid and provide excellent estimates of the wall shear 
stress and heat transfer. If shocks are present, however, a method which can compute the flow 
separation and reattachment may be necessary. 

5. Inclusion of an on-board air liquefaction system - The advantage of liquefying captured air 
for improvements in vehicle specific impulse is well known. In order to assess a configuration 
using such a device, the capability must exist to include its effects. A heat exchanger design 
package currently exists [5] as a separate module and needs to be incorporated (along with a 
couple of improvements) to the main code. The only inputs to the code are the flow capture rate 
(which depends on the boundary layer velocity profile) and the heat sink properties of the fuel 
(in this case liquid hydrogen has been assumed). This improvement is coupled with the addition 
of a boundary layer treatment since most LACE systems use captured boundary layer air. 

6. Computation of the flow on the upper surface - Currently, the program computes only the flow 
through the four regions of the underbody. The force and moment computations are then 
computed from these. While, these represent the contributions from the propulsion system, it 
would be convenient to know the total body forces and moments particularly if the cost would 
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be low. To get these would only require the computation of the flow on the upper surface and 
on the wings. It is envisioned that the upper surface would be particularly simple to compute 
since this would require only slight modification of the MOC procedure used on the undersurface 
forebody. The wings would be computed by a simple shock expansion program or by some 
impact theory such as Modified Newtonian. In each case, the added cost of the computation 
would be about 20-25%. 

7. Flexible structure capability - In this case a model for the vehicle structure must be included 
so that the effect of the pressure forces on the structure may be assessed. This would then feed 
back to the aerodynamic computation to give a new flow field and pressure distribution. The 
process repeats to a converged structural shape. 

8. Improved internal cowl lip analysis - The present cowl lip analysis on the interior of the inlet 
consists of simply applying two dimensional shock expansion theory at the cowl lip using only 
the lip incidence angle with the oncoming flow. The intersection with the sidewall shocks in the 
comers is not currently taken into account. While this region is small, it still accounts for the 
largest error in this part of the code. Solving for the comer intersections of two shocks requires 
a full three-dimensional solution. There are several methods which could be used, all of which 
will require considerably more computation time. Each of these methods use the methods of 
finite differences and solves some form of the Euler equations such as the methods of Kutler and 
Lomax [6] or Wanning, et. al. [7]. Should such a method be written, it might also replace the 
module written for the rest of the inlet if it were sufficiently fast The difficulty with this idea, 
though, is that all finite difference methods to date have the tendency to smear shocks and could 
thus might not provide a reasonable solution in a complex shock interaction region. The present 
inlet program is a shock/expansion method and, though rather cumbersome in its complexity and 
its inability to do three dimensional problems, it is extremely fast and is nearexact for the in viscid 
equations. 

9. Real gas effects and heat transfer computations on exposed surfaces - Since the Mach numbers 
in realistic situations can be quite high, it may be necessary to make some accounting for high 
temperature effects such as dissociation and the appearance of ionic forms of the air molecules. 
One way to do this is to use either equilibrium or frozen gas assumptions. In either case an 
adjustment is made of the local ratio of specific heats and z-factor in the state equation based on 
the per cent dissociation expected at a certain temperature [8]. Since the temperature is known 
locally, the adjustment of the z-factor can be made an extra step in the iteration process at each 
point With surface thermodynamic properties available from the Method of Characteristics, 
there are several procedures available to make estimates of the heat transfer coefficients. 

10. Improved Combustion Model - Many improvements in the combustion model can be made 
at relatively low cost In particular, effects of the chemistry of teh combustion products should 
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be a accounted for. Some correction for effects of fuel injection spray on the flow structure 
should be incorporated. This can be done by utilizing extensions of the shock/expansion routines 
already available in the program. Effects of variable combutor channel duct area should be 
included. This is already being done in the present code by a simple extension of the Rayleigh 
line algorithm. 


CONCLUSIONS 

The hypersonic code has been used to compute several cases for this document though 
comparisons with experimental or other analytical data for validation purposes has not been 
performed. Considerable improvement of the code will be needed if it is to work for more 
realistic hypersonic vehicle geometries of the type currently under study by NASA. To evety 
extent possible, validations of individual elements of the code were performed (e.g. frequent use 
of the isentropic and shock tables - computer generated, of course) and these gave us confidence 
that the individual modules of the code were faithfully executing their assigned tasks Many 
development runs have been made on small computers. The standalone implementations were 
generated on a Macintosh FX. After extensive debugging, run time has decreased to less than 
30 seconds for the method of characteristics forebody solutions and less than 1 5 seconds for the 
shock/expansion forebody calculations. Some calculations were performed on a Gateway 2000 
486/33 where typical run times were 25 CPUsec. Faster runs are possible since some of the time 
is used to writeextensive diagnostics and data files. As many as 8400 grid points in the fore and 
aft body regions were used. 

There were, however, several configurations in which the MOC procedure in the aftbody 
region had difficulties. These tended to be for cases where the Mach number was in the range 
of 10-13 for the AW ST configuration. The reason is believed to have been the compressions 
resulting from the choice of geometry rather than from an inherent instability in the code. The 
present configuration has high curvature relatively close to the beginning of the exhaust plane 
and, as a consequence, resembles a compression curve. This is neither a desirable feature to have 
in the middle of an MOC procedure since it can lead to instabilities, or worse, nor is this a 
desirable feature for an aerodynamically optimum vehicle. It should be noted that without a 
shock imbedding scheme, strong compressions can defeat an MOC calculation by causing 
instabilities, slow or non-existent convergence, or hanging of the machine. Such compressions 
have already been seen in some of the contour plots (see Fig. 52 on page 65, for example). Runs 
at a freestream Mach number of 10 would diverge in the aftbody region as the compression was 
approached and penetrated. Runs for cases with similar conditions which did .manage to finish 
frequently had losses in mass flux due to the inaccurate capture of the nonisentropic shock. Thus, 
it seemed that it was the fault of the body shape rather than the method. 

To check this, a few runs were made with an alternate aftbody (courtesy of D. McMinn, 
NASA-Langley). This corresponds to the UX-30 geometry described in the results section. The 
new nozzle contour has a milder curvature throughout the length of the aftbody significantly 
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reducing the ramp-like structure. As a consequence, the MOCA routines had no problems 
computing this flow. The contour plots for M=10 at angles of attack of -3, 0, and 3 degrees are 
shown in Fig. 56. A mild compression still exists in each of the plots, but is properly computed 
by the MOCA routine which can handle weak compressions. Further, there was no difficulty in 
preserving mass conservation throughout the entire domain. 

We conclude that as long as the non-shock-imbedded Method of Characteristics is used, then 
the user will have some difficulties with cases where the bodies are not particularly aerodynami- 
cally efficient (i.e. the presence of strong compressions cause problems for an MOC code 
without provision for arbitrary shocks). Other than this difficulty, the code appears to be woiking 
for a fairly wide range of Mach numbers (to 25) and angles of attack (as high as possible before 
the bow shock enters the inlet). We have made preliminary runs throughout these ranges as 
presented in the results section. A temporary shock/expansion method is used in the current 
software to handle compressive forebody shapes such as the UX-30 configuration. 
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Fig. 56. Mach number contours 


for the UX-30 aftbody at M=10 for various angles of attack. 
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APPENDIX 1 

Users Manual for Program HYTHRUST 
Forward 

This document gives a brief description of the HYTHRUST computer program and defines many of 
the symbols used. A users guide is also included along with a sample input files and sample outputs. 

Abstract 

The HYTHRUST program is designed to be used to compute the forces and moments generated on 
the underside of a hypersonic vehicle including the propulsion system module. The present configura- 
tion is based on the NASA baseline vehicle and assumes that the propulsion system consists of a number 
of SCRAMjet modules which use hydrogen fuel. The program must be run once for each module as the 
solution is generated for a strip along the length. A number of geometric, propulsion system, and flow 
parameters may be varied to examine the effect on the force distribution. The aim of the program was 
to be able to give a relatively accurate assessment of the flow and yet be very fast computationally. The 
present program runs in about 1-2 minutes on a 486-class microcomputer. 

Approach 

The computer program is divided into roughly four parts. One each for the forebody, inlet, 
combustor, and aftbody. Each of these parts is called from die main program which reads the input file, 
and directs the output As all variables are stored, the user may examine any number of flow properties 
by placing appropriate write statements in the corresponding locations in the main program. The present 
outputs are a breakdown of the forces generated on the main parts of the underbody and one or more data 
files with flow information in them for graphics output Some figures are given which used these files 
are included as an example. 

Generally the user’s main interaction with the program is through the input data file. This file, 
HYTH.DAT, contains the freestream information, the forebody geometry, the inlet and strut (up to five 
struts) geometries, combustion parameters, and the aftbody geometry. 

Brief description of th e computational methods 

A. Vehicle Forebody 

The vehicle forebody acts as the primary inlet ramp and provides the first compression of the 
freestream. As such it is necessarily streamlined to avoid severe stagnation pressure losses. It may also 
have a complex form if some sort of waveriding analysis was used to generate it’s shape. The flow is 
generally rotational and the location and shape of the bow shock is unknown. Hence, the shock must be 
computed along with the flow. At present, a 2D Method of Characteristics (MOC) is used to compute 
the flow and shock. The procedure allows for angle of attack to be included as well as radius of curvature 
in the crossflow direction. The MOC procedure only needs freestream information, the body geometry, 
and the data along some initial line normal to the body to get started. The method then marches 
downstream using compatibility relations derived from the inviscid, rotational equations (Euler) to 
compute the flow at the next station. The main routines responsible for this part of the code are MOCF, 
CONEFLOW, and STEP . The routine CONEFLOW is responsible for generating the starting conditions 
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for the MOCF routine and is called as soon as the forebody geometry is known. The routine MOCF does 
the main part of the work in applying the method of characteristics along the forebody. It accomplishes 
this by distributing points along vertical lines between the body and the shock whose location is initially 
guessed by extrapolating its position from the previous station. At each point, the compatibility relations 
are solved in an iterative fashion to get the properties. At the shock, the oblique shock relations are used 
along with the appropriate compatibility relation to determine the post shock properties and shock 
location. The process continues until the inlet face is reached. Generally, the inlet is inclined at an angle 
and is not coincident with the last station. The routine STEP does the final MOC computations to get 
the properties at the inlet face. 

B. Inlet 

The inlet is responsible for the flow compression and deceleration required for the combustor. It tries 
to accomplish this using oblique shocks in such a fashion as to minimize the stagnation pressure loss. 
The least expensive method which retains a great deal of accuracy is the oblique/shock expansion theory. 
This method assumes locally one-dimensional flow between lines represented by shocks, expansions, 
slip lines, and solid surfaces. To the extent that the flow is characterized by a relatively small number 
of these regions, the method is an extremely close approximation to an exact solution of the inviscid 
equations. The main difficulty is the logic in keeping track of locations of the lines, their next intersection 
and the computation of the properties downstream of the intersections. The present version of the code 
divides the SCRAMjet inlet into a number of vertical streamtubes. The number of stream tubes depends 
on how much the stagnation pressure varies normal to the body surface. In each streamtube, the flow 
is assumed to enter the inlet with constant Mach number and stagnation pressure. From there, the method 
computes the sidewall shock angles and the first intersection of these shocks with each other or with one 
of the struts. The downstream marching procedure keeps track of the locations of all lines, flow 
properties in between the lines, and where the next intersection of any kind will occur. The process 
continues until the beginning of the combustor (user specified location) is reached. At this point, the 
stagnation pressure and Mach number are area-averaged for the streamtube for use by the combustor 
section. While the idea is a relatively simple one, the present implementation of the numerous possible 
intersections, computation of the propetries downstream and so forth take up about 60% of the code. This 
part of the code starts at the subroutine INLET. This routine, makes calls to a number of utility routines 
(namely UPEXP, LOWEXP, B STRUT, ESTRUT, SSDF, SSSF, SEDFA, SEDFB, SESF, EEDF, EESF, 
SRSPA, SRSPB, SRW, ERSPA, ERSPB, and ERW) which mainly compute properties downstream of 
the various kinds of intersections. The names of these utility routines are dervied from the kind of 
intersection which has occured. For example, SSDF means “Shock-Shock, Different Family,” and refers 
to the intersection of two shocks of different families. Two other routines, SHANG and PM are utilities 
which compute the angles and properties downstream of an oblique shock and a Prandtl-Meyer 
expansion respectively. These routines are also called by some of the other sections. 

External to the inlet, at the cowl lip is a Prandtl-Meyer expansion. The flow properties are computed 
in MAIN since this is a simple procedure and results are held for the aftbody computation. 

C. Combustor 

In keeping with the simplicity of methods, the simplest manner in which a flow may be influenced 
by the addition of energy from chemical reaction is through the Rayleigh line analysis. This is also a one 
dimensional flow computation with a specified amount of heat addition in the routine RAY LEI GH. 
Alternatively, the outflow Mach number can be specified and the amount of heat addition computed. In 
either case, the amount of heat addition is related to the fuel-air equivalence ratio (ratio of mass flow rates 
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of the fuel and air). A number of parameters may be varied in this section, such as the mixture gas 
properties, combustor outflow Mach number or equivalence ratio. A maximum temperature is also 
specified and the procedure does not allow this to be exceeded. Once the heat addition has been applied 
to each of the stream tubes, the combustor outflow Mach number, stagnation pressure, stagnation 
temperature, and static quantities are available for the computaton of the flow over the aftbody. 


D. Aftbody 

The aftbody computation is performed totally in MOCA. Starting conditions are computed from the 
outflow of the combustor and from the properties computed from the expansion around the cowl lip. The 
basic procedure is similar to the forebdy with the exception that the external stream has a much different 
stagnation enthalpy than the combustor exhaust as well as a different pressure. The pressure difference 
and Mach numbers are used to determine the initial shock orientation from the combustor exhaust along 
with the slip line angle between the two streams. The routine then marches downstream in a manner 
similar to the forebody with the addition of an iterative procedure for the slip line orientation as well as 
the shock. The procedure ceases when the end of the vehicle is reached. 

E. Force and moment computation 

After the MOCA routine has completed the aftbody flow computation, the MAIN program presents 
a summary of the forces and moments applied to the vehicle by the propulsion system. Two methods 
are available within the program to determine these quantities. The first employs integration of the 
pressure forces over all wetted surface areas defined as part of the propulsion system. This includes inlet 
wedges, struts, and cowl surfaces. The second method follows and extension of the scramjet propulsion/ 
airframe integration definitions of Billig (Reference ). The momentum method is used to determine the 
forces on a control volume described by the stream tube passing through the combustor duct The fore 
and aft boundaries are the inlet surface and a plane normal to the flight direction passing through the most 
rearward point of the airframe. The nozzle slip line emanating from the lower edge of the cowl forms 
the lower boundary of the control volume. 

The program computes the components of the thrust vector defined in the standard way. Thrust is 
positive in the direction of flight The lift component of the thrust vector is positive upward. The thrust 
vector angle is positive if the vector is above the flight plane. The line of action of the thrust vector is 
computed as the point of intersection of the vector with the vehicle reference x-axis. The moment of the 
thrust force about the origin (located at the nose) of the vehicle x-y system is also determined. The 
moment is positive in the pitchup direction. 


Input Data File 

As mentioned, the main interface the user has is with the input data file. A sample data file is shown 
in Appendix 2. There are a several other places where the user may wish to change some default choices 
and these will be described in a later section. The input data file contains most of the parameters that the 
user may wish to vary in any parametric study and hence the program can usually be treated as a stand- 
alone module. Below a description of the input module is given. Variable names appropriate to each 
of the variables is included at the bottom of the data file for the convenience of the user. 
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Freestream conditions * Line 1. AMINF, TINF, PINF, ALPHAD 

These are, respectively, the freestream Mach number, static temperature in degrees Rankin, static 
pressure in pound-force per square foot, and vehicle angle of attack in degrees. The stagnation conditions 
will be computed from these quantities and the gas properties given in line 2. The angle of attack is the 
angle between the freestream and the main wing chord which would be the horizontal axis if the angle 
of attack were zero. In the sample data file, the temperature and pressure were those typical at about 
120,000 ft altitude. 

Freestream gas properties - Line 2. G, RG 

These are the ratio of specific heats and the gas constant for the freestream gas. The gas constant is 
the universal gas constant divided by the molecular weight of the gas. For air, the values are 1.4and 1716 
ft-pound-force/slug-degree Rankin. 

Number of forebody points - Line 3. NPF 

This is the number of coordinate points the user wishes to use to describe the geometry of the forebody 
on the strip (Humber of Eoints on Eorebody). These points should lie directly on the surface. The 
program will use a parametric cubic spline routine to interpolate between these points which is a rather 
smooth procedure. Thus, it does not require many points to describe a shape with few inflection points, 
in the sample data file, only about 5 points were used. 

Forebody data - Lines 4 (there will be NPF of these). X(i),Y(i),C(i) 

These are the forebody coordinate points (in feet) and body curvature. The coordinates are defined 
with respect to the nose of the vehicle with the x-axis parallel to the main wing chord. The vehicle is 
assumed to be upside down in order to have the vertical coordinates positive, though this did not turn out 
to be the advantage originally thought. Thus the y-axis may be thought of as being downward. The 
curvature of the surface, defined as simply the inverse of the radius of curvature in a plane perpendicular 
to the freestream. This is necessary in order to allow the MOC procedure to handle angles of attack. Note 
that is the body were a cone, the curvature would be the inverse of the y-coordinate. If the forebody is 
flat in cross section, the local curvature is zero (since the radius of curvature for a flat surface is infinite). 
All coordinates and curvatures are redefined in the program for the given angle of attack and leaves the 
freestream parallel to the horizontal axis. That way the user never needs to change the surface coordinates 
while changing the angle of attack. 

Inlet print logical - Line 5. LOUT 

This is a logical variable used to turn off or on the generation of various output data files in the inlet 
If LOUT is true, then the files are written, if false, they are not As these files were mainly usd for debug 
purposes, the user does not generally need the information contained in them and should set LOUT to 
false. 

Inlet dimensions - Line 6. H, XW1, XW2 

The variable H is the width of the combustor inlet (feet). XW1 and XW2 are the distances from the 
inlet face to the max thickness points of the sidewall ramps (feet). 

Sidewall wedge angles - Line 7. D1 JD1ST,D2J)2ST 

D1 and D2 are the initial sidewall ramp angles. D1ST and D2ST are the sidewall ramp angles after 
the max thickness points. All angles are in degrees and are specified with respect to a vertical plane 
parallel to the freestream. 
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Cowl Lip and combustor exhaust locations - Line 8. XCL, Y CL,XEX,YEX 

These are the coordinates of the cowl lip and the outer edge of the combustor exhaust (feet). 

Combustion chamber location, number of struts, strut angle - Line 9. XCC .NSTRUT, ALSTD 

XCC is the distance (feet) from the inlet face of the beginning of the combustion chamber. It is this 
location that determines when the shock-expansion computation of the inlet ceases and the Rayleigh line 
analysis begins. NSTRUT is the number of struts in the SCRAMjet up to a maximum of 5. ALSTD is 
the angle that the struts make with respect to the vertical axis in degrees. 

Strut configuration - Lines 10 (NSTRUT of these). XD(i),YD(i),DT(i),DD(i),DELST(i) 

XD and YD are the relative positions of the strut leading edges with respect to the leading edge of 
sidewall 1 (feet). DT and DD are the length and thickness of the struts (feet). In this version of the INLET 
subroutine, the struts are considered to be rhombi. DELST is the angle that the major axis of the strut 
makes with respect to a vertical plane parallel to the frees tream. 

Combustion gas properties - Line 11. G2,RG2,QR4TTAB,FCRIT 

These are the mixture ratio of specific heats and gas constant (ft-pound force/slug-degree Rankin). 

QR is the heating value of the fuel ( ), ETAB is the combustor efficiency factor, and FCRIT 

is the maximum fuel-air equivalence ratio for the fuel. 

Combustor operation parameters - Line 12. F.AM4 

These are the fuel-air equivalence ratio and the combustor outflow Mach number. The user specifies 
one of these. The idea of the combustor is to add the maximum amount of heat possible. This drives the 
flow toward a Mach number of unity (adding more heat will choke the flow, reducing the mass flow rate 
and possibly causing an unstart or, at least, greater inlet spillage resulting in high drag). Thus, it is 
desirable to have AM4 be as close to unity as possible. The user, though, more often has control over 
the fuel-air ratio and may wish to specify F. If F is to be given, then the value of AM4 is ignored. If the 
user wishes to specify AM4, then the value of F should be set to zero. 

Number of aftbody points - Line 13. NPA 

Self-explanatory. Analogous to NPF, the number of forebody points. 

Aftbody geometry - Lines 14 (NPA of these). XA(i),YA(i),CA(i) 

Completely analogous to the forebody data. Again, parametric cubic splines will be used to 
interpolate the data. 


Other User-control Variables 

In addition to the input data file, there are a few places in the program where the user may wish to 
modify some of the program control parameters. These are described below roughly in order of 
appearance in the program. 

1. Number of vertical stations for the MOC procedures. This is the integer JM set in a PARAMETER 
statement in MAIN and in several other routines. This number depends on the level of accuracy desired. 
The current use of 1 5 represents a reasonable number of vertical stations. Naturally, more stations could 
be used and may be necessary if the geometry is more rapidly varying that the sample data. However, 
if the forebody data is no more complex than the present configuration, then IS has been shown to give 
reasonable results. More stations does not appear to greatly change the overall result 
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2. Equivalent cone angle for starting the forebody MOC. Currently, the program is set to create a cone 
tangent to the forebody at 5% of the forebody length. This is acompletely arbitrary choice. It was chosen 
to be far enough downstream so that the number of MOC stream wise stations would not be excessive. 
The number does depend, to some extent, on the closeness of the shock to the body. If a smaller % were 
chosen, then there would necessarily be more stations. If this is desirable, then the user may need to 
enlarge the dimensions of the stored variables. 


The Routines In HYTHRUST 


Most of the routines in the program have some descriptive comment at the beginning. The following 
list briefly summarizes these routines for the convenience of the user. 

MAIN - overall program control. This part calls the routines which compute the four main segments of 
the flow field. 

MOCF - computes the forebody flow and bow shock by using a Method of Characteristics procdedure 
similar to the Hartree method. 

CONEFLOW - called by MOCF. Provides the starting cone and flow conditions for the MOCF 
procedure. 

LAGRANGE - an interpolation routine used in providing a means to evaluate flow variables in between 
the values at the previous station. 

CUBIC - a parametric cubic spline interpolation procedure. In this routine, a single dimensioned array 
(like X(i)) is given to the routine. The coefficients of the cubic spline interpolating functions are 
returned. The interpolating functions are, of course cubics, in the parameter, t, which varies between zero 
and one on each cubic. 

INTRPC - finds the value of the parameter, t, and between which two points X(i) some arbitrary value 
of X exists. This value of t can then be used in the cubic splines of the other variables to find their 
corresponding values. 

STEP - advances the forebody MOC net to the face of the inlet This routine is necessary since the MOCF 
routine only advances the forebody flow calculation using vertical stations and the inlet face is, in 
general, not vertical. Most of the same logic as MOCF is used in STEP, but the geometry is different 

TNT FT - computes the flow in the inlet by the shock-expansion method. This is the largest part of the 
program using 60% of the coding. A number of utility routines are called by INLET since there are a 
large number of possible types of intersections between shocks of two families, expansions of two 
families, slip lines, and solid surfaces. 
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APPENDIX 2 
Typical Data File 


(Represents Configuration Shown in Figure 1) 


NASP.dat 

5. 418.79 23.085 8. 

AMinf Tinf Pinf Alpha(deg) 

1.4 1716. 

Gamma Rgas 

5 

NPF 

0 . 0 . 0 . 

XF(1) YF(1) CF(1) 

28.31 5.08 .19685 

XF(2) YF(2) CF(2) 

52.54 8.6 .11628 


76.27 11.01 .090827 


98.31 11.86 .084317 

XF(NPF) YF(NPF) CF(NPF) 

FALSE 

Lout 

7.35 15.385 15.385 

H XW1 XW2 

6. -6. -6. 6. 

D1 D1ST D2 D2ST 

103.5 17.06 134.27 17.06 

XCL YCL XEX YEX 

15.553 3 35. 

XCC NST ALST 

13.561 3.675 2.727 .2867 0. 

XD(1) YD(1) DT(1) DD(1) DELST(l) 

12.796 2.345 4.101 .3587 3. 

XD(2) YD(2) DT(2) DD(2) DELST(2) 

12.796 2.345 4.101 .3587 -3 

XD(NST) YD(NST) DT(NST) DD(NST) DELST(NST) 

1.4 1716. 1.2E9 .99 .0292 

G2 RG2 QR EtaB FCRTT 

0. 1.15 

F AM4 

6 

NPA 

134.27 11.86 0. 

XA(1) YA(1) CA(1) 

146.47 6.53 0. 

XA(2) YA(2) CA(2) 

158.67 2.14 0. 


170.87 -1.15 0. 

- 

183.07 -3.37 0. 


195.27 -4.74 0. 

XA(NPA) YA(NPA) CA(NPA) 


Key: 

Symbol Table corresponds to values given above that are read by the program. Propellant is liquid 
hydrogen, ER is equivalence ratio. Program computes mixture properties, but bums only enough H2 
to stay within temperature limits. Static Temperature is not allowed to exceed 5500 degrees inside 
propulsion system duct Flight condition shown corresponds to standard atmosphere at 100,000 ft 


84 





APPENDIX 2 (continued) 

Typical Data File 

(Represents Configuration Shown in Figure 21) 



UX-30.dat 

5. 406.44 27.83 8. 

AMinf Tinf Pinf Alpha(deg) 

1.4 1716. 

Gamma Rgas 

5 

NPF 

0 . 0 . 0 . 

XF(1) YF(1) CF(1) 

53.367 4.667 0.0 
70.392 6.983 0.0 

XF(2) YF(2) CF(2) 

79.575 8.742 0.0 


92.833 12.117 0.0 

XF(NPF) YF(NPF) CF(NPF) 

FALSE 

Lout 

33.333 1.0 1.0 

H XW1 XW2 

0.5 -0.5 -0.5 0.5 

D1 D1ST D2 D2ST 

92.833 12.875 100.2 12.875 

XCL YCL XEX YEX 

4.50 3 35. 

XCC NST ALST 

1.0 1.0 1.0 1.0 0.0 

XD(1) YD(1) DT(1) DD(1) DELST(l) 

1.0 1.0 1.0 1.0 1.0 

XD(2) YD(2) DT(2) DD(2) DELST(2) 

1.0 1.0 1.0 1.0 -1.0 

XD(NST) YD(NST) DT(NST) DD(NST) DELST(NST) 

1.26 1716. 1.2E9 1.00 .02916 

G2 RG2 QR EtaB FCRIT 

0. 1.15 

F AM4 

7 

NPA 

100.2 12.117 0. 

XA(1) YA(1) CA(1) 

108.51 8.7932 0. 

XA(2) YA(2) CA(2) 

116.80 5.9963 0. 
125.10 3.7167 0. 
133.40 1.9574 0. 



141.70 0.71852 0. 
150.00 0.00 0. 

XA(NPA) YA(NPA) CA(NPA) 


Key: 

Symbol Table corresponds to values given above that are read by the program. Propellant is liquid 
hydrogen, ER is equivalence ratio. Program computes mixture properties, but bums only enough H2 
to stay within temperature limits. Static Temperature is not allowed to exceed 5500 degrees inside 
propulsion system duct Flight condition shown corresponds to standard atmosphere at 95,636 ft 
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APPENDIX 3 
Program Source Listing 


* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

+ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

4c 

4c 

* 

4c 

4c 

*. 

* 

* 

* 

* 

* 

* 

* 

*. 


PROGRAM HYTHRUST 

VERSION 1.0 
July 1992 

This program determines the effect of angle of attack on thrust 
vector of a scramjet propelled vehicle. Method of characteristics 
is used for the fore and aft body regions with shock-expansion and 
Rayleigh line methods for the scramjet duct Output includes 
thrust vector magnitude, direction, and line of action, fuel ISP, 
Pitching moment due to thrust (positive pitch up), and effective 
equivalence ratio (portion of the fuel flow actually burned). 

The equivalence ratio and a range of flight Mach number and angle 
of attack are chosen by the user. Propellant is liquid hydrogen. 
Properties of the atmosphere at selected altitude, vehicle geometry, 
and gas properties are read from a data file that can be modified 
as needed by the user. 


Written by: 


For. 


Robert L Roach and Harold Buschek, 
Georgia Insitute of Technology 
Atlanta, GA 

Gary A. Flandro , 

University of Tennessee Space Institute 
Tullahoma, TN 

NASA Langley Research Center 
Hampton, VA 


Main Externals: 

CUBIC gets the cubic spline coeffs 
INTERPC interpolates cubic 

CONEFLOW starting conditions based on Taylor-Maccoll theory 
LAGRANGE 4 pt Lagrange interpolation 


PARAMETER (TM=501,JM=2 1 3=2 1 ,NST=5,NGMAX=23) 

COMMON/CB SPF/ AFX(IM),BFX(IM),CFX(IM),AFY(IM),BFY(IM),CFY (IM), 

1 AFC(IM) ,BFC(IM),CFC(IM) ,NPF 

C0MM0N/CBSPA/AAX(IM)3AX(IM),CAX(IM)^AY(IM)3AY(IM),CAY(IM), 
1 AAC(IM),BAC(IM),CAC(IM),NPA 

COMMON/DEPVR/ RHO(IM JM),VT(IM JM),T(IM,JM),P(IM,JM), 

1 TH(IMJM),AM(IMJM),WS(IM),HO(IMJM),PO(IMJM) 
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COMMON/CMB ST/ G2,RG2,CP2,G2M,G2P,QR,ETAB,FCRIT 
COMMON/GASPR/ G,RG,GM,GP,CP 
COMMON/GRIDS/ X(IM),Y(IM r FM) 

COMMON/GRIDF/ XF(IM),YF(IM),CF(IM)JLF 
COMMON/GRIDA/ XA(IM),YA(IM),CA(IM),ILA 
COMMON/INFTY/ AMINF,PINF ( TINF ALPHA 
COMM ON/INLTI/ POIN(JD,AMIN(JI),PIN(JI),TIN(JI) JIHIN(JI), 

1 VTIN(JD,THIN(JI)AIN(JI),YIN(JD 

COMMON/INLTC/POCC(JI) t AMCC(JI)JPCC(JI),TCC(JI),RHCC(JI), 
1 VTCC(JI),H0CC(J1) 

COMMON/EXITC/ POCX(JI) AMCX(JI),PCX(JI),TCX(JI)3HCX(JI), 
1 VTCX(JI),HOCX(JI) 


COMMON/INLTF/ DFUWJDFLW 
DIMENSION JSTRUT(NGMAX) 

COMMON/GEO/ H,H1,XW1,XW2,D1,D1ST,D2,D2ST,XD(NST),YD(NST), 
1 DT(NST),DD(N ST) XCC JDELST (N ST),J STRUT ALST 

COMMON/SCRMX/POEX(JI),AMEX(JI),PEX(JD,TEX(JI),RHEX(JI), 

1 VTEX(JI),THEX(JI),Y CX(JI),HOEX(JI) 

COMMON/ST AGN/ T0INF.H0INF 
COMMON/STRUT/ N STRUT 


DIMENSION FF(JI)AS(IM),YS(IM) 
DIMENSION PUTOUT(14) 
CHARACTER DATNAM+21, FILNAM*21 


LOGICAL LOUT.REVY 

write(6,*) * Enter Minimum Equivalence Ratio (ERmin)’ 

read(6 ,*) ER write(6,*) ‘ Enter Mach Number Range (Mstart,Mfmal,DeltaM)’ 

read(6 *) AM START, AMFINAL.AMINCREMENT 
write(6,*) * Enter Angle of Attack Range (AstartAfinal,DeltaA)’ 

read(6 *) ASTART,AFINAL,AINCREMENT 

write(6,*) * Enter Plot File Name [type NONE if none reqd.] 

READ(6,’(A21)’) FILNAM 
IF (FILNAM.EQ.’NONE’) THEN 
NOPE = 1 
ELSE 

OPEN ( 1 2,FILE=FILN AM ,ST ATUS=’ UNKNOWN’) 

END IF 

WRTTE(6,*),’ Enter Input data file name: * 

READ(6,’(A21)’) DAINAM 

WRITE(6,*), ‘ SCRAMJET THRUST VECTOR ANALYSIS’ 

WR1TE(6 *) 4 


DO AMACHNUM = AMSTART,AMFINAL,AMINCREMENT 
DO ANGLEOFATK = ASTART,AFINAL,AINCREMENT 
CALL SCRAMJET(AMACHNUM,ANGLEOFATK,ER,lever,DATNAM) 
IF (lever.GT.O) EXTT 
END DO 

END DO *— — 

IF (NOPE.EQ.O) THEN 
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CLOSE02,STATUS=’KEEP’) 
END IF 
STOP 
END 


SUBROUTINE SCRAMJET(AMACHNUM,ANGLEOF ATK,ER, lever, DATN AM) 


This subprogram computes effect of angle of attack on thrust vector 
of a scram jet propelled vehicle. MOC is used for the 
fore and aft body regions with shock-expansion and 
Rayleigh line methods for the scram jet duct Output includes 
thrust vector magnitude, direction, and line of action, fuel ISP, 
Pitching moment due to thrust (positive pitch up), and equivalence 
ratio. 

Main Externals: 

CUBIC gets the cubic spline coeffs 
INTERPC interpolates cubic 

CONEFLOW starting conditions based on Taylor-Maccoll theory 
LAGRANGE 4 pt Lagrange interpolation 


PARAMETER (IM=50 1 , JM= 1 5 3=2 1 ,NST=5,NGM AX=23) 

COMMON/CBSPF/ AFX(IM),BFX(IM),CFX(IM),AFY(IM),BFY(IM),CFY(IM), 

1 AFC(IM),BFC(IM),CFC(IM),NPF 

COMMON/CBSPA/ AAX(IM),BAX(IM),CAX(IM),AAY(IM)3AY(IM),CAY(IM), 

1 AAC(IM)3AC(IM),CAC(IM),NPA 

COMMON/DEPVR/ RHO(IMJM),VT(IMJM),T(IM,JM),P(IM,JM), 

1 TH(IM,JM),AM(IM,JM),WS(IM),HO(IM,JM),PO(IM,JM) 

COMMON/CMB ST/ G2,RG2,CP2,G2M,G2P,QR3TAB,FCRIT 
COMMON/GASPR/ G,RG,GM,GP,CP 
COMMON/GRIDS/ X(IM),Y(IM JM) 

COMMON/GRIDF/ XF(IM),YF(IM),CF(IM),ILF 
COMMON/GRIDA/ XA(IM),YA(IM),CA(IM),ILA 
COMMON/INFTY / AMINF,PINF,TINF,ALPHA 
COMMON/INLTI/POIN(JI),AMIN(JI),PIN(JI),TIN(JI),RHIN(JI), 

1 VTIN(JI),THIN(JD^GN(JI),YIN(JI) 

COMMON/INLTC/POCC(JI)AMCC(JI),PCC(JI),TCC(JD,RHCC(JI), 

1 VTCC(JI),HOCC(JI) 

COMMON/EXITaPOCX(JI)^MCX(JI)3CX(JI),TCX(JI)3HCX(JI), 

1 VTCX(JI),HOCX(JI) 

COMMON/INLTF/ DFUWJDFLW 
DIMENSION JSTRUT(NGMAX) 

COMMON/GEO/ H,H1,XW1,XW2,D1,D1ST,D2,D2ST,XD(NST),YD(NST), 
1 DT(NST),DD(NST),XCC,DELST(NST),JSTRUT,ALST 

COMMON/SCRMX/ P0EX(JI),AMEX(JI),PEX(JI),TEX(JI)3HEX(n), " 

1 VTEX(JI),THEX(JI),YCX(JI),HOEX(JI) 

COMMON/ST AGN/ T0INF30INF 
COMMON/STRUT/ N STRUT 
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DIMENSION FF(JI),XS(IM),YS(IM) 
DIMENSION PUTOUT(14) 
CHARACTER* 1 77.77, 

CHARACTER DATNAM*21 JTLNAM*21 

LOGICAL LOUT.REVY 

CALL InitBeachB all(5 1 2) 

CALL ShowBeachBall 

* USEFUL STUFF 

PI = 3.141592654 

lever = 0 * 

READ INPUT DATA 


OPEN (UNIT =2,FILE= DATNAM ,STATUS=’UNKNOWN’) 

* READ FREESTREAM CONDITIONS 

READ(2 ,*) AMINF,TINF,PINF,ALPHAD 

* READ FREESTREAM GAS PROPERTIES READ(2,*) G,RG 

* READ FOREBODY DATA 

READ(2 ,*) NPF 
DO 501= 1,NPF 

READ(2,*) XF(U,YF(I),CF(I) 

50 CONTINUE 

* READ INLET & COMBUSTOR GEOMETRY READ(2,*) LOUT 

READ(2,*) H,XW1,XW2 
READ(2,*) D 1 ,D 1 ST,D2,D2ST 
WIDTH = H 
D1 = PI*D1/180. 

D1ST = PI*D1ST/180. 

D2 = PI*D2/180. 

D2ST = PI*D2ST/180. 

READ(2,*) XCL, Y CL,XEX, YEX 
READ(2,*) XCC.NSTRUT.ALSTD 

* WRITE(6*),’ ALST = ‘ ALSTD 
DO 54 1 = 1.NSTRUT 

READ (2,*) XD(I).YD(I) t DT(UX>D(I).DELST(I) 54 CONTINUE 

ALST = PI*ALSTD/180. 

EL = XEX - XCL 


♦ NORMALIZE INTERNAL INLET DIMENSIONS WRTH HI =H 

XW1 = XW1/H 
XW2 = XW2/H 
XCC =XCC/H 
DO 56 1 = LNSTRUT 
XD(I) = XD(I)/H 
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YD(I) = YD(I)/H 
DT(I) = DT(D/H 
DD(I) = DD(I)/H 
56 CONTINUE 
H = 1. 


* READ COMBUSTION GAS PROPERTIES READ(2,*)G2,RG2,QR,ETAB .FCRJT 

* READ COMBUSTOR OUTFLOW CONDITIONS READ(2,*) FAM4 

* READ AFTBODY GEOMETRY 

READ(2 *) NPA 
DO 60 1 = 1,NPA 
READ(2 *) XA(I), Y A(I),C A(I) 

60 CONTINUE 

YHTTE = ABS(YA(2)-YA(1)) CLOSE(2,STATUS=’KEEP’) 

AMINF = AM ACHNUM 
ALPHAD = ANGLEOFATK 

ALPHA = PI* ALPHAD/ 180. 

FLTMACH = AMINF 

DYNAMP = 0.5*G*PINF*FLTMACH**2. 

TOINF = TINF*(I. + .5*(G-1.)*FLTMACH**2) 

WRITE(6 ,*) ‘ ‘ 

WRITE(6,*) ‘Right Conditions:’ WRITE(6,*) ‘ ‘ WRITE(6,950) 

fltmachalphad 

WRITE(6,951) TINF.TOINF.PINF 

WRTTE(6,970) DYNAMP 
WRITE(6,*) 4 4 

950 FORMAT (‘7 Minf =’,F5.2,7X,’ Alpha =\F5.2,’°’) 

951 FORMAT (‘7 Tinf =’^7.2,’ °R’,3X,’ Toinf =’,F8.0,’ °R\3X,’ Pinf =\F7.3,’ psf) 

970 FORMAT Dynamic Pressure = q =\F10.3,’ psf) 


SOME USEFUL QUANTTTES 


GM = G - 1. 

GP =G + 1. 

G2M = G2 - 1. 

G2P = G2 + 1. 

RHOINF = PINF/(RG*TINF) 

VI = AMINF*SQRT(G*RG*T1NF) 

VINF = VI 

TOINF = TINF*(1. + .5*GM*AMINF**2) 

P0INF = PINF*(1. + .5*GM*AMINF**2)**(G/GM) CP = G*RG/GM 
HOINF = CP*T0INF 


+ 

ALL COORDINATES THROUGH ANGLE OF ATTACK 

* 


-* ROTATE 

CAL = COS(ALPHA) 
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SAL = SIN(ALPHA) 


* FOREBODY POINTS 

DO 70 1 = 1,NPF 
XX = XF(D 
YY = YF(I) 

XF(I) = XX+CAL - YY*SAL 
YF(I) = XX*SAL + YY*CAL 
CALL SpinBeachBall(l) 

70 CONTINUE 

* COMBUSTOR POINTS 

XX = XCL 
YY = YCL 

XCL = XX*CAL - YY*SAL 
YCL = XX* SAL + YY*CAL 
XX = XEX 
YY = YEX 

XEX = XX*CAL - YY*SAL 
YEX = XX* SAL + YY*CAL 

* AFTBODY POINTS 

DO 78 1 = 1,NPA 
XX = XA(I) 

YY = YA(I) 

XA(I) = XX*CAL - YY*SAL 
YA(I) = XX* SAL + YY*CAL 
CALL SpinBeachBall(l) 

78 CONTINUE 


* ADJUST SURFACE CURVATURES FOR ANGLE OF ATTACK 


* WRITER,*)/ Adjusting surface curvatures for angle of attack..’ 

* FOREBODY 

DO 82 1 = 1,NPF 
CF(I) = CF(I)/CAL 
82 CONTINUE 

* AFTBODY 

DO 84 1 = l.NPA 
CAa) = CA(I)/CAL 
84 CONTINUE 


* GET CUBIC SPLINE COEFFS FOR THE FORE & AFT BODIES 


* WRITE(6,*),’ Getting cubic spline coeffs for the fore & aft.’ 

CALL CUBIC(NPF V XF,AFX,BFX,CFX) 

CALL CUBIC(NPF,YF,AFY3FY,CFY) 

CALL CUBIC(NPF,CF,AFC,BFC,CFC) 
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CALL CUBIC(NPA,XA,AAX,BAX,CAX) 

CALL CUBIC(NP A, Y A, AA Y.B A Y.CAY) 

CALL CUBIC(NPA,CA AAC3 AC.CAC) 

OPEN BODY SURFACE DATA FILE 

OPEN(55JTLE=’surface.dat’,STATUS=’UNKNOWN’) 


VEHICLE FOREBODY FLOW COMPUTATION 

WRITE(6,*),’ Calling MOCF....’ 

CALL MOCF 

* WRITE(6 *),’ Back from MOCF...’ 


* CHECK TO SEE IF SHOCK INTERSECTS COWL LIP 

+ (XCL - X(ILF))*TAN(WS(ILF)) IF(Y SHK.LT. YCL) THEN 
WRITE(6,*),’ Bow Shock is Inside Cowl Lip’ lever = 1 
GOTO 3334 
END IF 


YSHK = Y(ILFJM) 


SCRAM JET INLET 


FOREBODY FLOW TO COWL UP USING MOC 
DXINLT = XCL - X(ILF) 

DYINLT = ABS(YCL - Y(ILF,1)) 

YP = YCL 


STEP FROM 


* WRITE(6 Calling STEP for Cowl Lip...’ 
CALLSTEPMOC(DXINLT,YPAMCL,PCL,TCL,RHCL t THCL,VTCL) 

* WRITE(6 *),’ Back from STEP...’ 


POCL = PCL*(1. + .5*GM*AMCL**2)**(G/GM) 

* DETERMINE THE NUMBER OF SCRAM JET STREAMTUBES NEEDED 

* Note: NSTR = Number of streamtubes, user selectable or automatic. 

* Determined by percent change in PO, 1 per SLPC change. 

* WRITE(6,*),’ Finding number of streamtubes...’ 

SLPC = .005 

DLPO = ABS(P0CL - P0(ILF,1))/P0(ILF,1) 

NSTR = INT (DLPQ/SLPC) 

IF(NSTR.LT.6) NSTR = 6 
IF(NSTR.GT.15) NSTR = 15 


♦ WRITE(6 There will be ‘.NSTR,’ streamtubes...’ 


STREAMTUBE LOOP 


FLXMSS = 0. 

FLXMTMX = 0. 
FLXMTMY = 0. 
FLXMTMA = 0. 
PFORCEI = 0. 




■AREAINLET = 0. 
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AREAST = D YINLT*H 1/NSTR 


DO 200 N = 1.NSTR 

FN = (N - .5)/NSTR 

XIN(N) = X(ILF) + FN*(XCL - X(ILF)) YIN(N) = Y(ILF,1) + FN*(YCL - Y(ILF,1)) YCX(N) = 
YIN(N) 

♦ STEP TO INLET FACE OF THIS STREAMTUBE USING MOC * Note: Here, the 

conditions at the center of the * streamtube are computed using MOC. 

YY = YIN(N) 

DX = XIN(N) - X(ILF) 

CALL STEPMOC(DX,YY,AMN,PN,TN,RHN,THN,VTN) 

P0IN(N) = PN*(1. + .5*GM*AMN**2)**(G/GM) AMIN(N) = AMN 
PIN(N) = PN 
TIN(N) =TN 
RHIN(N) = RHN 
THIN(N) = THN 
VTTN(N) = VTN 


* Compute Mass & Momentum Fluxes 

DMASS = RHN* AREAST* VTN*COS(THN) DMSSX = -DMASS*VTN*COS(THN) DMSSY 
= -DMASS*VTN*SIN(THN) 

DMMA = XIN(N)*DMSSY - YIN(N)*(DMSSX + PN* AREAST) 

FLXMSS = FLXMSS + DMASS 
FLXMTMX = FLXMTMX + DMSSX 
FLXMTMY = FLXMTMY + DMSSY 
FLXMTMA = FLXMTMA + DMMA 

PFORCEI = PFORCEI + PN* AREAST 

AREAINLET = AREAINLET + AREAST 

* CALL INLET FOR THIS STREAMTUBE 

AML = AMIN(N) 

PTL = P0EN(N) 

THDG = 180.*THN/PI 

* WRITE(6,*),NJRHN,VTN,THDG,DMASS 

* WRITE(6,*),’ AML = \AML,’ PTL = * J*TL 

FI * (1. + .5*GM*AML**2)**(.5*GP/GM) 

SQSTF = SQRT(G/(RG*T0INF)) 

FLX = PTL* AREAST* AML*SQSTF/F1 

* WRITE(6,*) t ’ Flux for streamtube at start of inlet = ‘.FLX 

* WRITE(6,*),’ DMASS = ‘.DMASS 

CALL INLET (N.AML.PTL, AREAST, AM3.P03.AREA3) 

* COMPUTE INLET EXIT CONDITIONS FOR THIS STREAMTUBE 

* WRITE(6,*),’ AM3 = ‘.AM3,’ P03 = ‘»P03 

AMCC(N) = AM3 

TRCC = 1. + .5*GM*AM3**2 

TCC(N) = TOINF/TRCC 
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PCC(N) = P03/TRCC**(G/GM) RHCC(N) = PCC(N)/(RG*TCC(N)) ACC 
= SQRT(G*RG*TCC(N)) 

VTCC(N) = AM3+ACC 
HOCCCN) = HOINF 

♦ SCRAMJET COMBUSTOR 

♦ WRITE(6 ,*),’ Calling RAYLEIGH...’ 

CALL RAYLEIGH(N,AM3,P03,T0INF,F r AM4JP04,T04,T4,P4) AREA4 = AREA3 

♦ WRITE(6,*) N,AM4,T04,T4,P4,P04,F 


FF(N) = F 
AMCX(N) = AM4 

TRCX = 1. + .5*G2M*AM4**2 
TCX(N) =T4 
pnrxrTsn = P04 

PCX(N) = P04/TRCX * * (G2/G2M) 
RHCX(N) = PEX(N)/(RG *TCX(N)) 

ACX = SQRT(G2*RG*TCX(N)) 

VTCX(N) = AM5+ACX 


* WRITE TO BODY DATA FILE IF FIRST STREAMTUBE * 

IF(N.EQ.l) THEN 

* TR =1. + .5*GM*AM4**2 

* T4 = T04/TR 

* PR = TR**(G/GM) 

* P4 = P04/PR 

* RH4 = P4/(RG2*T4) 

* XX = X(ILF) + XCC 

* WRITE(55,*) XXAM4.P4.RH4 

* END IF 


* COMBUSTOR EXPANSION 

♦ WRITE TO BODY SURFACE DATA FILE IF FIRST STREAMTUBE * 

FOR THE FIRST STREAM TUBE, EXPAND IN INCREMENTS 
AREA5 = AREAST 
IF(N.EQ.1)THEN 

AREA = ARE A4 
AMA = AM4 
DO 170 1 =1,10 

AREAL = AREA 


AML = AMA 

ARA = (2.*(1. + .5*G2M*AML**2)/G2P)**(.5*G2P/G2M)/AML FI =.1*I 

XX = X(ILF) + XCC + FI* (X(ILF+1) - X(ILF) - XCC) AREA = AREA4 + FI*( AREAS - AREA4) 
ARR = ARA* AREA/AREAL 
CALL MSUP(ARR,G2,AMA) 

TRA = 1. + .5*G2M* AM A* *2 


TST = T04/TRA 
PR = TRA* *(G2/G2M) 

PST = P04/PR 

RHST = PST/(RG2*TST) 

* WRITE(55,*) XX,AMA,PSTJIHST 
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170 CONTINUE 
ENDIF 


AREA4 = ARE A3 

AR4 = (2.*(1. + .5*G2M*AM4**2yG2P)**(.5*G2P/G2M)/AM4 

ARE A5 = ARE AST 

AR5 = AR4*AREA5/AREA4 

CALL MSUP(AR5,G2,AM5) 


FF(N) = F 

AMEX(N) = AM5 

TREX = 1.+ .5*G2M*AM5**2 

TEX(N) * T04/TREX 

P0EX(N) = P04 

PEX(N) = P04/TREX* * (G2/G2M) RHEX(N) = PEX(N)/(RG*TEX(N)) AEX 
SQRT(G2*RG*TEX(N)) 

VTEX(N) = AM5*AEX 
H0EX(N) = CP+T04 

* COMPUTE MASS FLUX AT COMBUSTOR EXIT 

FI = (1. + .5*G2M*AM5**2)**(.5*G2P/G2M) 

SQSTF = SQRT(G2/(RG*T04)) 

FLX = P04*AREA5*AM5*SQSTF/F1 

* WRITE(6,*),’ Comb, streamtube flux after expansion = \FLX 

FI = (1. + .5*G2M*AM4**2)*%5*G2P/G2M) 

SQSTF = SQRT(G2/(RG*T04)) 

FLX = P04*AREA4*AM4*SQSTF/F1 

* WRITE(6,*),’ Comb, streamtube flux before expansion = \FLX 

* WRITE(6,I) N,AM5,P04,T04,PEX(N),RHEX(N) 

1 FORMAT(‘ Rayleigh.. .’,I4^E12.4) 

CALL SpinBeachBall(l) 

200 CONTINUE 

* END OF STREAMTUBE LOOP 


* OUTPUT FROM RAYLEIGH LINE COMPUTATION 

FLX =0. 

DO 202 N = 1,NSTR 

T0CC = TCC(N)*(1. + ^*GM*AMCC(N)**2) 

RHN = RHCC(N) 

VTN = VTCC(N) 

DFLX = RHN*VTN*AREA4 
FLX = FLX + DFLX 
THD = 0. 

CALL SpinBeachBall(5) 

202 CONTINUE 

* Average Flow Properties in Propulsion Duct 


AMIN 2 = 0.0 
P0IN2 = 0.0 
PIN2 = 0.0 
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TIN2 — 0.0 
RHIN2 = 0.0 
VTIN2 = 0.0 
THIN2 = 0.0 

AMCC3 = 0.0 
POCC3 = 0.0 
PCC3 = 0.0 
TCC3 = 0.0 
RHCC3 = 0.0 
VTCC3 = 0.0 

AMCX4 = 0.0 
P0CX4 = 0.0 
PCX4 = 0.0 

TCX4 = 0.0 

RHCX4 = 0.0 
VTCX4 = 0.0 
FCOMB = 0.0 

AMEX5 = 0.0 
P0EX5 = 0.0 

PEX5 = 0.0 TEX5 = 0.0 RHEX5 = 0.0 
VTEX5 = 0.0 


DO 203 J = 1,NSTR 

AMIN2 = AMIN 2 + AMIN(J)/NSTR P0IN2 = P0IN2 + P0IN(J)/NSTR PIN2 = PIN2 + PIN(J)/NSTR 
TIN2= TIN2 + TIN(J)/NSTR RHIN2 = RHIN2 + RHIN(J)/NSTR VTIN2 = VTIN2 + VTIN(J)/ 
NSTR THIN2 = THIN2 + THIN(J)/NSTR 

AMCC3 = AMCC3 + AMCC(J)/NSTRP0CC3 =P0CC3 +P0CC(J)/NSTRPCC3 =PCC3 +PCC(J)/ 
NSTR TCC3 = TCC3 + TCC(J)/NSTR RHCC3 = RHCC3 + RHCC(J)/NSTR VTCC3 = VTCC3 + 
VTCC(J)/NSTR 

AMCX4 = AMCX4 + AMCX(J)/NSTR P0CX4 = P0CX4 + POCX(jyNSTR PCX4 = PCX4 + 
PCX(J)/NSTR TCX4 = TCX4 + TCX(J)/NSTR RHCX4 = RHCX4 + RHCX(J)/NSTR VTCX4 = 
VTCX4 + VTCX(J)/NSTR FCOMB = FCOMB + FF(J)/NSTR 

AMEX5 = AMEX5 + AMEX(J)/NSTR P0EX5 = P0EX5 + P0EX(J)/NSTR PEX5 = PEX5 + PEX(J)/ 
NSTR TEX5 = TEX5 + TEX(J)/NSTR RHEX5 = RHEX5 + RHEX(J)/NSTR VTEX5 = VTEX5 + 
VTEX(J)/NSTR 


CALL SpinBeachBall(5) 

203 CONTINUE 

T0IN2 = TIN2*(1+0.5*GM*AMIN2**2) T0CC3 = TCC3*(l40.5*GM*AMCC3**2) T0CX4 = 
TCX4*( 1 40.5*G2M* AMCX4* *2) T0EX5 =TEX5*(1+0.5*G2M*AMEX5**2) 


*_ 

* SCRAMJET COWL FORCE COMPUTATION 

*. 
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Note: This temporary computation is based on oblique shock/ 
expansion theory and does not include the interaction 
with the sidewall shocks. This is hopefully a small 
error since the intersections are confined to small 
regions near the comers. A more accurate computation 
would require a lengthy 3D computation of the region. 

If such a computation were performed, it might as well 
do the entire inlet, but run times would be significantly 
longer by at least an order of magnitude from the current 
procedure. rlr 

INLET COWL FORCES BY OBLIQUE SHOCK THEORY COWLANGL = 


ATAN2((YEX-YCL),(XEX-XCL)> 

DL = THCL - COWLANGL 

CALL SHANCMVMCUDUG,LSHANG,THY ,PR,PTR,AMY) PINL - PCL*PR - P(ILF,1) 

DAWl = ,5^*TAN(ABS(DI))*(Ti l*XW 1)**2 DAW2 = ,5*TAN(ABS(D2))*(H 1 *XW2)**2 AREA 
- H1*DXAV - DAW1 - DAW2 XAVG = XCL + ,5*H1*XCC 

YAVG = YCL + (XAVG-XCL)*(YEX-YCL)/(XEX-XCL) FCLXI = - 

PINL* AREA*SIN(COWLANGL) 

FCLYI = -PINL*AREA*COS(COWLANGL) DXFYCL = -XAVG*FCLYI 
DYFXCL = -YAVG*FCLXI 


* 

* 

* 

* 

* 

* 


WRITE(6,*),’ Computing forces on cowl inside inlet..’ 
WRITE(6,*),’ COWLANGL = ‘,180. *COWLANGL/PI 
WRITE(6,*),’ PINL = ‘.PINL,’ AREA = \AREA 
WRrTE 6,*),’ FCLXI = ‘.FCLXI,’ FCLYI = \TCLYT 

WRITE(6,*),’ XAVG = ‘.XAVG,’ YAVG = ‘.YAVG 

WRTTE(6,*),’ DXFYCL = ‘.DXFYCL,’ DYFXCL = ‘.DYFXCL 


+ VERTICAL FORCE IN THE COMBUSTION ZONE 

* Note: Assume, for now that pressure contribution to overall 

* force balance is small. 


1777 = 1 

IF(IZZZ.EQ.l) GO TO 210 

PAVG = .5*(PCC(NSTR) + PEX(NSTR)) 

XW1ST = EL - H1*XW1 

XW2ST = EL - H1*XW2 


DAWl ST”2 DAW2 = .5*TAN(ABS(D2ST))*XW2ST**2APEA 

= H1*DXAV - DAWl - DAW2 FGLXC = -PAVG*AREA*SIN(COWLANGL) FCLYC - - 

XAVG* txCL + XCC +^*PEX(NSTR)+PCC(NSTR))/(3.*PAVG) YAVG = YCL + (XAVG- 


XCL)*(YEX-YCL)/(XEX-XCL) 

DXFYCC = -XAVG*FCLYC 
DYFXCC = -YAVG*FCLXC 


* 

* 

* 

* 

* 


WRITE(6 

WRTTE(6 

WRITE(6 

WRITE(6 

WRTTE(6 
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* VERTICAL FORCE ON THE OUTSIDE BY EXPANSION THEORY 

* Note: Computed below prior to computing aft body stuff 
210 CONTINUE 


* SHIFT VALUES FROM CENTER OF STREAMTUBE TO EDGES 

* Note’ can now use arrays at combustor inlet temporarily 

DO 220 N = 1.NSTR 
RHCC(N) = RHEX(N) 

AMCC(N) = AMEX(N) 

P0CC(N) = P0EX(N) 

VTCC(N) = VTEX(N) 

PCC(N) =PEX(N) 

TCC(N) =TEX(N) 

H0CC(N) = H0EX(N) 

220 CONTINUE 


125*(9.*H0CC(1) - H0CC(2)) PEX(l) =.125*(9.*PCC(lj -PCC(2))TEX(1) =.125*(9.*TC ( ) 
- TCC(2)) 

oucYfMCTPj.n - l2S+f9 ♦RHCC(NSTR) - RHCC(NSTR-l)) AMEX(NSTR+1) = 


DO 230 N = 2.NSTR 

f h»,) + p™.5*™ : 

PCC(N-1)) TEX(N) = .5*(TCC(N) +TCC(N-1)) 

230 CONTINUE 


* See if we messed up the mass flux FLX = 0. 

DO 240 J = 2.NSTR+1 

RVAV = =^5*(^HEX^(J)*VTEX(J) VrHEX(J-1)*VTEX(J-1)) DFLX = RVAV-AREA5 
FLX = FLX + DFLX 
240 CONTINUE 

♦ WRITE(6,*),’Net Mass Flux at combexh. after shift = ‘.FLX 


* VEHICLE AFTBODY COMPUTATION 

*. — - 

* WRJTE(6,*),’ Vehicle Aft body computation...’ 

* STARTING COORDS 

I = ILF + 1 

DY = (YEX - YA(1))/(JM - 3.) 

DO 300 J = 1JM 

X(D =XA(1) 

Y(I,J) = YA(1) + (J - l.)*DY 
300 CONTINUE 
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* STARTING VALUES - Linear interpolation from combustor exhaust DO 320 J 1 JM- 

2 

DO 310 N = 2,NSTR 

NZ = N- 1 IF(Y(IJ).LT.YCX(N)) GO TO 315 
310 CONTINUE 


VT(U) * VTO* 

YP+rvTF.X('NZ+l'l - VTEXfNZ)) AM(I,J) = AMEX(NZ) + YR*(AMEX^4Z+1) - i^^EX(NZ)) 
I»aJ^^(N2)+YR*(H0EX(^l)^B^))roaJ)^^(NZ)+YR (P0EX(NZ+1) 
- POEXfNZ)) T(LD = TEX(NZ) + YR*(TEX(NZ+1) - TEX(NZ)) 

P(U)= PEX(NZ) + YR*(PEX(NZ+1) - PEX(NZ)) 

TH(IJ) = ALPHA 
320 CONTINUE 


- EXTERNAL CONDITIONS 


» — CA 1 Diviiru-i 

ANGL = THCL - COWLANGL IF(ANGL.LT.O.) THEN 
WRJTE(6,*),’ Shock in Inlet!’ 

♦ WRITE(6,*),’ THCL = \180.*THCL/PI 

GOTO 3334 

CALL PM(AMCL,ANGL,G,AMCLY,TH1,TH2,THAV.PCLY) 

WRITE(6,*),’ Cowl Lip expansion...’ 

WRITE(6,*),’ AM = \AMCL 

WRITE(6,*),’ Turn Angle = \180.*ANGLVPI, deg 
WRITE(6 AM2 = ‘.AMCLY 

AMINF = AMCLY 


* 

♦ 

♦ 

* 


■ COMPUTE SHOCK PROPERTIES AT EXHAUST LIP 


* 

♦ 

* 

♦ 


PCLY =PCL*PCLY 

P2 = .6*P(IJM-2) + .4*PCLY 

WRITE(6,*),’ Iteration loop for exhaust lip conditions... 

WR1TE(6,*),’ Mext = ‘.AMCLY 

WRITE(6,*),’ Pext = ‘.PCLY 

WRITE(6 *),’ Mint = ‘,AM(I,JM-2) 

WRTTE(6,*),’ Pint = *,P(UM-2) - 


ITERATE 


CONTINUE 

AA = SQRT(.5*(GP*P2/PCLY + GM)/(G*AMCLY**2)) 
WS(I) = ATAN2(AA,SQRT(1. - AA**2)) 

TW = TAN(WS(I)) 

ITT = W%5 S *GP + AMCLY**2/((AMCLY+SW)**2 - 1.) - 1.) 
THL = ATAN2(1.,F1) 


CALL SHANG TO GET P2S 


CALL*StWNG(AMCLY,THL,G l LSHANG,WSHK t pRAT 1 pTRAT f AM2S) P2S = PRAT*PCLY 


CALL PM TO GET P2E 


CA^Pm1^,TOUG, AM2E.TH 1 ,TH2,™A,PRAT) P2E = PRAT>P(UM-2) 
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* GET NEW P2 

P2L = P2 

P2 = .5*(P2S + P2E) 

DP2 = ABS(P2 - P2L) 

* writer*),’ dp2 = g™ 

IF(DP2.GT..001) GO TO 325 


.GT..001) GO iuw 

CONVERGED: GET CONDmONS OUTSIDE SUP LINE TR - 1. 

m**2 


.5*GM*AM2S**2 
T2S = TOINF/TR 
RH02S = P2/(RG*T2S) 

JSS = JM - 1 
DO 330 J = JSSJM 

RHO(I,J) = RH02S 

VT(U) = ^2 a S^SQRT(G*RG*T2S) H0(U) «H0INF 

TH(LJ) = THL + ALPHA 
T(IJ) = T2S 
P(IJ) =P2 

Y(IJ) = Y(IJM-2) 

P0(IJ) = P(IJ)*TR**(G/GM) 

330 CONTINUE 


LUINIJiNUC 

SET VALUES ON LOWER PART OF SLIP LINE JSL =JM-2 

CT A - AM2E 


AM(I,JSL) — AM2E 
wKjSU = P2*TR**(G/GM) 


* 

♦ 

* 

♦ 

* 

* 

* 


I1JNL) s Aivuii 

TO JSL) =P2*TR**(G/GM) 

WRITE(6 i *V Converged. Exh a ustLip Valuw^ 
WRITE(6,*),’ Shock wave angle = ,180^Sa)/W 
WRITE(6*V SUp Line angle * J 8 ?- ™^ )/F1 
WRITE(6 ,♦),’ Mach No above SL = .MJOJSS) 
WRITE(6,*V Mach No below SL = *^0JSL) 
WRTTE(6 *),’ Pressure above SL- ,P2b 
WRITE(6,*),’ Pressure below SL= ,P2c 

SET INITIAL WALL VALUES 

’=TAYm 


DY = CAY(1) 

DX = CAX(l) 

TH(I,1) * ATAN2(DY,DX) 

AMA1 = AM(I,1) 

THAI = ABS(TH(I.l)) . . AMA1 . th = ‘,180 *THA1/PI 

* WRITE(6,*), th2THAVJ>RAT) 

CALL PM(AMA1,THA1,G,AM2,TH1,TH2, IHAV^rai; 

AM (1,1) = AM2 I 

P(L1) =PRAT*P(LD 

♦ WRTTE(6 ,*),* PRAT = ‘.PRAT 

♦ WRITE(6 ,*),* G = \G 

XSi)*>(UO) to.d = T(1,1)*PRAT**(GM/G) csp 
SQRT(G*RG*T(M)) VT(L1) «CSP*AM(U) 

* SET FLOW ANGLES 
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DY = CAY(1) 

DX = CAX(l) 

* TH(I,1) = ATAN2(DY,DX) 

* DO 340 J « 2 JM-2 

* YR = (Y(IJ) - Y(I,l)y(Y(I,JM-l) - Y(I, 1 )) 

* TH(U) = TH(I,1) + YR*(THL - TH(I,1)) 

* 340 CONTINUE 

* FORCE ON OUTER COWL 

* WRJTE(6,*),’ Computing forces, etc. on outer cowl...’ 

XAVG = .5*(XCL + XEX) 

YAVG = .5*(YCL + YEX) 

AREA = H1*(XEX - XCL) 

FCLXE = PCLY*AREA*SIN(COWLANGL) 

FCLYE = PCLY*AREA+COS(COWLANGL) 

DXFYE = -FCLYE*XAVG 
DYFXE = -FCLXE*YAVG 

* WRTIE(6,*),’ COWLANGL=‘,180.*COWLANGL/PI 

* WRTIE(6 ,*),’ PCLY = ‘,PCLY,’ AREA = ‘.AREA 

* WRITE(6,*),’ FCLXE = ‘.FCLXE,’ FCLYE = ‘.FCLYE 

* WRITER,*),’ XAVG = ‘.XAVG,’ YAVG = \YAVG 

* WRITE(6,*),’ DXFYE = ‘.DXFYE,’ DYFXE = ‘.DYFXE 

* TOTAL FORCE & MOMENT ON COWL 

FCLX = FCLXI + FCLXE + FCLXC 
FCLY = FCLYI + FCLYE + FCLYC 

DXFYC = DXFYCL + DXFYCC + DXFYE DYFXC = DYFXCL + DYFXCC + DYFXE 


* MARCH THROUGH THE AFTBODY REGION 

* WRITE(6,*),’ Calling MOCA...’ 

CALL MOCA(Kicker) 

* WRITE(6,*),’ Back from MOCA...’ 

IF (Kicker.GT.O) THEN 

WRITE(6,*) ‘ Nozzle Errors Prevented Completion of Solution’ WRITE(6,*) 4 GOING 

TO NEXT CASE ’ 

GOTO 3334 
END IF 

* CLOSE(55,STATUS= ‘KEEP’) 


FINAL SUMMARY COMPUTATIONS 

* 

fective Equivalence Ratio: 


Ef- 


pDpCC _ pD 

ERCOMB=FCOMB/FCRTT 
IF (ERCOMB.GT.ER) THEN 
EREFF = ERCOMB 
END IF 

- Frees tream Momentum Flux 
FMMINF = FLXMSS*VINF 

- Average Properties at Nozzle Exit: NSTR6 = JSL-2 

AMN6 = 0.0 
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PN6 = 0.0 
RHN6 = 0.0 
VTN6 = 0.0 


DO 439 J = 2JSL 


WNS’m6 MN6 + • 5 * (AM(ILAJ)+AM ( ILA ^- 1 )) /NSTR6 PN 6 = PN6 + .5*(P(ILAJ)+P(ILAJ- 

5”(W(£a^*COS(TO^AJ)) + <ILA ' ,)+RHO<ILAJ ' 1))/NSTR6 v ™ 6 = VTN6 + 
439 COmTNUE VT(ILAJ ‘ 1, ‘ COSfra(ILAJ - 1))yN S™ 6 


TN6 = PN6/(RG2*RHN6) 

P0N6 = PN6*(1 + J*G2M*AMN6**2)**(G2/G2M) T0N6 = TN6*(1 +.5*G2M*AMN6**2) 


— Outflow MASS Flux 
FLX =0. 


DO 440 J = 2 JSL 

AREA = H1*(Y(ILA,J) - Y(ILAJ-1)) 

RHAV = .5 * (RHO(IL A J)+RHO(IL A, J- 1 )) VNAV = .5*(VT(ILAJ)*COS(TH(ILAJ)) + 
1 VT (IL A, J- 1 )*COS(TH(ILA, J- 1 ))) ;; 

DMASS = RHAV*AREA*VNAV 
FLX = FLX + DMASS 

440 CONTINUE 

Rat = FLXMSS*(1+EREFF*FCRIT)/FLX 

* Outflow Momentum Flux 

FXMMA = 0. 

FYMMA = 0. 

MMA = 0. 

FLX =0. 

PFORCEX = 0. 


DO 441 J = 2JSL 

AREA = H1*(Y(ILA,J) - Y(ILAJ-1)) 

RHAV = J* (RHO(IL AJ)+RHO(ILAJ- 1 )) VXAV = .5*(W(ILAJ)*COS(TH(ILAJ)) + 

1 VT(ILAJ-l)*COS(TH(ILAJ-l))) 

VYAV = .5*(VT(ILA r I)*SIN(TH(ILAJ))+ 1 vTflLA T 

1)*SIN(TH(ILAJ-1))) VI(1LA4- 

PAV = .5*(P(ILA,J)+P(ILAJ-1)) 

DMASS = Rat*RHAV*AREA*VNAV 
DFXMM = DMASS*VXAV 
DFYMM = DMASS*VYAV 

DM = XA(NPA)*DFYMM-(Y (ILAJ)+Y(ILAJ-l»*(DFXMM+AREA*PAV)/2.0 

FLX = FLX + DMASS 
FXMMA = FXMMA + DFXMM 
FYMMA = FYMMA + DFYMM 
PFORCEX = PFORCEX + AREA+PAV 
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MMA = MMA - DM 
441 CONTINUE 

WRITE(6,*) ‘ * 

WRITE(6,*), ’Frees tream capture area = ‘.CAPTUREAREA 
WRirE(6,*),’ Pfinlet =’, PFORCEI 
WRJTE(6,*),’ Pfexit =\ PFORCEX 
WRJTE(6,*),’ Net mass flux out = ‘JFLX 
WRJTE(6,*), ’Momentum Fluxes:* 

WRITER,*),* Freestream Momentum Flux = ‘,FMMINF 
WRITE(6,*),’ Inflow x-momentum flux = ‘JFLXMTMX 
WRITE(6,*),’ Inflow y-momentum flux * ‘JTXMTMY 
WRITE(6 Outflow x-momentum flux = ‘.FXMMA 
WRITE(6,*),’ Outflow y-momentum flux = ‘,FYMMA 


* Force on Vehicle (FX Positive Forward; FY Positive Upward): 


FX = (FXMMA + FLXMTMX) + PFORCEX - PFORCEI 
FY = (FYMMA + FLXMTMY) 

FMAG = SQRT(FX*FX+FY*FY) 

TANG = ( 1 80iPI)*ATAN2(FY r FX) 

* Moment on Vehicle (Positive Pitch up): 

PMOMENT = MMA + FLXMTMA 
XB = -PMOMENT/FY 

XB = SIN(PI*TANG/180.)*XB/SIN(PI*(TANG-ALPHAD)/180.)XB = XB/XA(NPA) 

* Thrust and Moment Coefficients: 


CAPTUREAREA = FLXMSS/(RHOINF*VINF) 

AIAC = ARE AINLET/CAPTURE AREA CT = FMAG/(AREAINLET*DYNAMP) 
CM = PMOMENT/(AREAINLET*DYNAMP*XA(NPA)) ’ 

SPF = FX/(32.17*EREFF*FCRTT*FLXMSS) IF (SPF.LT.O.) THEN 
SPF = 0.0 

END IF 


* Write results to terminal 


WRITE(6,*) ‘Vehicle Geometry:’ WRITE(6,*) ‘ — 
WRITE(6,964) AREAINLET WRITE(6,963) AIAC 


‘ WRITE(6,958) XA(NPA) 


WRITE(6,*) ‘ ‘ 

WRJTE(6,*) ‘System Performance:’ WRTIE(6,*) *■ 
WRITE(6,957) CT.CM 
WRITE(6,959) SPF 
WRTTE(6,962) EREFF 
WRITE(6,956) FLXMSS 


WRTIE(6,974) FLXMSS*ER*FCRIT WRITE(6,952) FX.FY 
WRITE(6,953) FMAG 
WRITE(6,971) TANG 
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WRITE(6,961) PMOMENT WRITE(6,960) XB 
WRITE(6,*) ‘ * 

WR1TE(6,*) ‘Average Flow Properties in Duct:’ 

WRITE(6,*) ‘ • 

WRITE(6,975) 

w R I T E ( 6 


‘ WRITE(6,979) FLTMACH , VINF,TINF,TOINF,PINF,POINF 

WRITE(6,976) AMIN2,VTIN2,TIN2,TOIN2,PIN2 r POIN2 
WRITE(6,977) AMCC3,VTCC3,TCC3,TOCC3,PCC3,POCC3 
WRITE(6,978) AMCX4,VTCX4,TCX4,T0CX4,PCX4,P0CX4 
WRITE(6,980) AMEX5,VTEX5,TEX5,T0EX5,PEX5,P0EX5 
WRITE(6,981) AMN6,VTN6,TN6,T0N6,PN6,P0N6 
W R I T E ( 6 


‘WRITE(6,*) ‘ ‘ 


) 


) 


952 FORMAT Fx =\F9.1,’ lbf\3X,’ Fy =’,F9.1,’ lbf) 

953 FORMAT (‘7 Thrust =\F9.1,’ lbf) 

956 FORMAT Air Mass Flow Rate =\F7.2,’ slug/sec’ JX) 

957 FORMAT (‘7 Ct = , ^5.3,5X,’ Cm =’,F5.3) 

958 FORMAT (“/ Total Length = ‘,F6.2,’ ft’) 

959 FORMAT (‘7 ISPfuel =’F8.2,’ sec’) 

960 FORMAT (‘7 Thrust line-of-action =’,F6.3) 

%1 FORMAT Moment about Origin =’ J10,’ ft-lbF) 

962 FORMAT Effective Equivalence Ratio =\F7.3) 

F0RMAT <*«> 

972 FORMAT (‘7 Ai/Acapture =’^5.3)’ 

974 FORMAT (‘7 Fuel Mass Flow Rate =’^7.2,’ slug/sec*) 

975 FORMAT CM9X.’ M\3X.'V [Wsec]’3X,’T [“R]’.3x;To rR]',3X,' p [psf]\3X,-Po (psf]’ 

mSS 7 D ^’ W ? f 1 ^;- 3 X.F5.2.3 X ,F7.°,3X,F7. l.3X,F7.°,3Xf7. 1 .3X.F11 .0) 
VI bad m V '• Combustor Inlel ; 3X,F5.2,3X,F7.0.3Xf7. 1 ,3X,F7.0,3XF7. 1.3X.F1 1,0) 

^.° mhuslor ,^ x ' t ■'3XF5^3X,F7.°,3X,F7.1,3X.F7.°,3X,F7. 1,3X,F1 1.0) 979 
F«eSttoun ; 3Xf52 ,3X£7 .03X,F7.1,3XJ7.03XJ^.1,3XJ=11.0)980FOR- 

fj** <„ ; M„,^ P , ^V^f^-^^^', F J '’ 3X ’ F7 0 '3X.F7.1,3XJ11.0) 981 FOR- 

MAT! . Nozzle Exit : .3X.F5.2,3X,F7.0,3X,F7.1,3X.F7.0.3X,F7.1,3X.F11.0) 


♦ Write Data to File: 

IF (NOPE.GT.O) GOTO 3334 

PUTOUT(l) = FLTMACH 
PUTOUT(2) = ALPHAD 

PUT0UT ( 4 ) = FLXMSS PUTOUT(5) = FCOMB/FCRIT PUTOUT(6) = 
FMAG PUTOUT(7) = TANG PUTOUT(8) = SPF PUTOUT(9) = PMOMENT PUTOUTflO) - XB 
PUTOUTO 1) = FX PUTOUT(12) = FY PUTOUT(13) = CT PCTOUT(14) = CM ( ' " 

WRITE(12 t ’(9999(F,Al))’) (PUTOUT(I),CHAR(9)J=l,13), 1 
PUTOUT(14) 

CALL SpinBeachBall(l) 
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3334 CONTINUE 
RETURN 

CALL RelfieachBall 
END 

* 

♦ 


SUBROUTINE MOCF * 


* This subroutine computes the flow over the forebody 

* of a super/hypersonic vehicle using the Method of 

* characteristics. 

(IM=50UM=15) 


PARAMETER 


COMMON/CBSPF/ AFX(IM),BFX(IM),CFX(IM),AFY(IM)3FY(IM),CFY(IM), 1 
AFC(IM),BFC(IM),CFC(IM),NPF 
C0MM0N/DEPVR/RH0(IM,JM),VT(IM,JM),T(IM,JM)3(IM,JM), 

1 TH(IM,JM),AM(IM,JM),WS(IM),H0(IM,JM)30(IM,JM) 

COMMON/GASPR/ G.RG,GM,GP,CP 
COMMON/GRIDS/ X(IM),Y(IM,JM) 

COMMON/GRIDF/ XF(IM),YF(IM),CF(IM),ILF 
COMMON/INFTY / AMINF,PINF,TINF,ALPHA 

LOGICAL AXISYMA 
CALL InitBeachBall(512) 

CALL ShowBeachBall 




* LEADING EDGE CONE STUFF 

* 

PI =3.141592654 
CAL = COS(ALPHA) 

TOINF = TTNF*(1. + .5*GM*AMINF**2) HOINF = CP*T0INF 
AINF = SQRT(G*RG*TINF) 

VINF = AMINF*AINF 
RHOINF = PINF/(RG*TINF) 

* Find leading edge cone angle 

* User may specify XLC, ie. how far from nose, default is 5 % 

XLC = .1 

XS =XF(1) + XLC*(XF(NPF)-XF(1)) 

CALL INTRPC(XF^CS,AFX,BFX,CFX,NPF,IZ,TT) 

YS = YF(IZ) + ((AFY(IZ)*TT + BFY(IZ))*TT + CFY(IZ))*TT DX = (3.*AFX(IZ)*TT + 
2.*BFX(IZ))*TT + CFX(IZ) 

DY = (3.*AFY(IZ)*TT + 2.*BFY(IZ))*TT + CFY(IZ) * DL IS THE 

CONE ANGLE 

DL = ATAN(ABS(DY/DX)) 

* CALL CONEFLOW TO GET STARTING CONDITIONS * 
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WRTIE(6,*),’ Calling coneflow...DL = ‘,180 +DL/PI 
CALL CONEFLOW (DL) 

* WRITE(6,*),’ Back from Coneflow...’ 


* + 

FIRST X-STATION COORDINATES 

♦ — DXS =XS-XF(1) 

X(l) = xs 

Y(1JM) = YF(1) + DXS*TAN(WS(1)) 

DY = (Y(1,JM) - YS)/(JM - 1.) 

DO 80 J = 1JM 
Y(1 J) = YS + DY*(J - 1.) 

CALL SpinBeachBall(l) 

80 CONTINUE 


MAIN LOOP 


OPEN(2,FTLE=’mocf.dat’ ,STATUS=’ UNKNOWN’) 

WRITE(2 ,*) X(1),Y(1,1),Y(UM) 
OPEN(34 7 ILE= , mocf.out\STATUS=’UNKNOWN’) 

WRITE(3,4) 

4 FORMAT(3X,’i\8X,’x\l lX,’y’ ,1 1X,’M’,1 !X,’wM lX,’p’,l IX, ’Vt’) 


1=1 

100 1 = 1+1 


♦ DETERMINE THE STEP SIZE, DX 

DXF = .5 


♦ LIMITATION AT GROUND PLANE 

DY = (Y(I-IJM) - Ya-l.DVCJM-l.) 

ARG = AM(I-U)**2 - 1. 

IF(ARG.LT.0.) THEN 
WRITER,*),’ ARG<0 at loc. Gl...’ 

WRITE(6,*),’ AM (I- 1 ,2) = *,AM(M,2) 

WRITE(6,*),T = ‘4/ XG) ■ ‘,X(D 
GOTO 3333 
ENDIF 

EM = ATAN2(1.,SQRT(AM(I-1,2)**2 - 1.)) 

DXW = DXF+DY/(TAN(EM + TH(I-1,2)) - TAN(TH(I-1,2))) 

* LIMITATION AT SHOCK 

„ ARG = AM(I-1JM)**2 - 1. 

EF(ARG.LT.0.) THEN 

WRITER,*),’ ARG<0 at loc. G2...‘ WRITE(6,*),’ AM(I-1JM) = \AM(I-1,JM) WRITE(6,*),’ 
I = *4,’ X(I) = *,X(I) GOTO 3333 
ENDIF 

EM = ATAN2(1.,SQRT(AM(I-1JM)**2 - 1.)) 

DXS = DXF*DY/(TAN(EM - TH(MJM)) + TAN(WS(I-1))) 

DX = DXS 

IF(DXW.LT.DXS) DX = DXW 
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♦ SET Y-STATIONS AT THIS I 

XX = X(I-1) + DX IF(XX.GEXF(NPF)) THEN 
XX = XF(NPF) 

DX = XF(NPF) - X(I-1) 

ILF = I 

Y(I,1) = YF(NPF) 

CFW = CF(NPF) 

ELSE 

CALL INTRPC(XF,XX,AFX,BFX,CFX,NPF,IZ,TT) 

Y(I,1) = YF(IZ) + ((AFY(IZ)*TT + BFY(IZ))*TT + CFY(IZ))*TT CFW = CF(IZ) + 
((AFC(IZ)*TT + BFC(IZ))*TT + CFC(IZ))*TT 
ENDIF 
X(I) = XX 

Y(UM) = Y(I-UM) + DX*TAN(WS(I-1)) 

DY = (Y(IJM) - Y(I,1))/(JM - 1.) 

DO 120 J = 2JM 
X(I) =X(D 
Y(U) = Y(U-1) + DY 
CALL SpinBeachBall(l) 

120 CONTINUE 


* .♦ CONDI- 

TIONS AT THE WALL 

♦ * SURFACE 


SLOPE 

DYS=(3.*AFY(IZ)*TT+2.*BFY(IZ))*TT+CFY(IZ) DXS=(3.*AFX(IZ)*TT+2.*BFX(IZ))*TT 
+ CFXOZ) TH(I,1) * ATAN2(DYS,DXS) 

* INITIAL GUESS, VALUES AT LAST WALL STATION P(I,1) = P(I- U) 

AM (1,1) =AM(I-1,1) 

RHoai)=RHoa-u> 
vrai) =vra-u) 

AMI =AM(I-1,1) 

TH1 =THa-l,l) 

* ITERATION LOOP FOR THE WALL * WRITE(6,*),’ 

Iteration loop for wall...’ 

* LOCATE YC1 

130 CONTINUE 
PWL = P(I,1) 

ARG = AM(I-1,1)**2 - 1. 

IF(ARG.LT.O.) THEN 

WRTTE(6,*),’ ARG<0 at loc. G3...’ WRITE(6,*),’ AM(I-U) = \AM(M,1)WRITE(6,*),’ I 
= ‘J,’ X(I) = *,X(I) GOTO 3333 
ENDIF 

EM =ATAN2(1.,SQRT(AM(I,1)**2- 1.)) 

ARG = AMI **2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc. G4...’ WRITE(6,*),’ AMI = \AM1 
WRITE(6,*),’ I = M,’ X(I) = **© GOTO 3333 
ENDIF 
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EMU = J*(EM + ATAN2(1.,(SQRT(AM1**2 - 1.)))) PHI = EMU - .5*(TH(I,1) + TH1) 

YC1 = Y(U) + DX*TAN(PHI) 

DC1 = SQRT(DX**2 + (Y(I,1) - YC1)**2) 

DO 140 J = 2JM 
J1=J-1 

CALL SpinBeachBaU(l) 

IF(YC1 .LT.Y (I- 1 J)) GO TO 145 
140 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT (X(I-l).YCl) * 4 pt 

Lagrange interpolation 
145 CONTINUE 
JZ=J1 
YZ = YC1 


CALL LAGRANGEQJZ.YZ, YF1 ,YF2,YF3,YF4,JA r JB,JCJD) 

TH1 = TH(I-1JA)*YF1 + TH(I-1JB)*YF2 + 

1 TH(I-1JC)*YF3 + TH(I-1 JD)*YF4 

AMI = AM(I-1 JA)*YF1 + AM(I-1 JB)*YF2 + 

1 AM(I-1 JC)*YF3 + AM(I-1,JD)*YF4 

VT1 = VT(I-1JA)*YF1 + VT(I-UB)*YF2 + 

1 VT(I-1JC)*YF3 + VT(I-1 JD)*YF4 

RH1 = RH0(I-1JA)*YF1 + RHO(I-UB)*YF2 + 

1 RHO(I-UC)*YF3 + RHO(I-l,JD)*YF4 

PI = P(I-1 JA)*YF1 + P(I-1 JB)*YF2 + 

1 P(I-1JC)*YF3 + P(I-1 JD)*YF4 

ARG = AM 1**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc. G5...’ WRITE(6,*),’ AMI = ‘.AMI 
WRITE(6,*),’ I = X X(I) = *,X(I) 

GOTO 3333 
ENDIF 

BT1 = SQRT(AM1**2 - 1.) 

BRV1 = BT1/(RH1*VT1**2) 


* AVERAGES BETWEEN YC1 & Y(I,1) ARG=AM(Ll)++2- 1. IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc. G6...’ WRITE(6 AM(I,1) = ‘,AM(I,1) 

WRITE(6,*),’ I-X X(I)=\X(I) 

GOTO 3333 
ENDIF 


BRV = .5*(BRV1 + SQRT(AM(I,l)**2-l.)/(RHO(I,l)*VT(I,l)**2)) DY1 = YC1 - Y(I,1) 
CF1 = CFW/( 1 . + CFW*DY 1 *CAL) 

RHS1 =CF1*SIN(TH1)/AM1 
RHS = -.5*DC1*(RHS1 + CFW*SIN(TH(I,1))/AM(I,1)) 


GET PRESSURE 

P(I,1) = PI + (RHS + (TH(L1) - TH1))/BRV 


* GET DENSITY FROM SOUND SPEED EQN 

aa = .5*G*(P(i,iyRHO(i,u + pa-uyRHoa-u)) 
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RHoai) = RHoa-i.i) + (pai) - pci-uwaa 


- GET VT FROM STAGNATION ENTHALPY 


ARG = HOINF - G*PaiV(GM*RHOa,l)) 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc. G7...’ 

WRITE(6 *),’ HOINF = ‘.HOINF,’ P(U) = 'Ml) 
WRITE(6,*),* RHO(I,l)= \RHO(I,l) 
WRITE(6,*),’ I = ‘J,’ X(I) = *Jt(D 
GOTO 3333 
ENDIF 

VT(L1) = SQRT(2.*(H0INF - G*P(L 1 V(GM*RHO(1, 1 )))) 


* MACH NUMBER 

= VT(Ll)/SQRT(G*P(I,iyRHO(I,l)) TR = 1.+ .5*GM*AM(I,1)**2 

POai) = P(I,1)*TR**(G/GM) 


* CHECK TO SEE IF CONVERGED 

DP = ABS(PWL - P(I,1)) 

+ WRITE(6*),’ DP = ‘.DP 
IF(DP.GT..001) GO TO 130 


DO INTERIOR POINTS 


WRITER,*),’ Interior points....’ 

DO 260 J = 2JM-1 

CALL SpinBeachBall(l) 

DYJ*Y(U)-Y(U) 

CFJ = CFW/(1.4CFW+DYJ+CAL) 

* INITIAL GUESS FOR THIS J 

P(U) =P(I-U) 

AM(I,J) =AMU-U) 

RHO(I,J) = RHOa-l,J) 

VTa.J) =VT(I-1.J) 

TH(IJ) =TH(I-U) 


AMI = AM a J) 
TH1 = TH(IJ) 
AM2 = AMa J) 
TH2 = TH(I,J) 
AMS = AM(U) 
THS = TH(U) 


TINUE 


ITERATION LOOP AT THIS POINT 

PL = P(I,D 


■210 


CON- 


* LOCATE YC1 

ARG = AM(U)**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc. G8...’ WRITE(6,*),’ AM(IJ) = *,AM(LJ) WRITE(6,*),’ I=‘X’ 
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X(I)=\X(D GOTO 3333 
ENDIF 

EM = ATAN2(1.,SQRT(AM(I,J)**2 - 1.)) ARG = AM 1**2 - 1 
IF(ARG.LT.O.) THEN 

^WGofo 3333 ^ ^ l0C ' G9 " WRITE(6 ’* ) ’’ A** 1 = t ^ AM1 WRHE(6,*), 
ENDIF 

___ r-. „ EMU * -5*(EM + ATAN2( l.,(SQRT(AM 1 **2 - 1.)))) 

PHI = EMU - .5*(TH(U) + TH1) 

YC1 = Y(U) + DX*TAN(PHD 
DC1 = SQRT(DX**2 + (Y(IJ) - YC1)**2) 


— FIND NEAREST J-INDEX BELOW YC1 

DO 220 JZ = 2 JM 
J1 = JZ- 1 

IF(YC1.LT.Y(I-1 JZ)) GO TO 225 

CALL SpinBeachBall(l) 


220 CONTINUE 


* COMPUTE PRESSURE & OTHER STUFF AT YC1 * 

interpolation 

225 CONTINUE 
JZ = J1 
YZ = YC1 


CALL LAGRANGE(I, JZ, YZ, YF1 , YF2.YF3, YF4JAJB JCJD) 

TH1 = TH(I-1JA)*YF1 + TH(I-1 JB)*YF2 + 
m 1 TH(I-1 JC)*YF3 + TH(I-1JD)*YF4 

AMI = AM(I-1JA)*YF1 + AM(I-1,JB)*YF2 + 

* AM(I-1 JC)*YF3 + AM(I-1 JD)*YF4 

VT1 = VT(I-1,JA)*YF1 + VT(I-1JB)*YF2 + 

VT(I-1JC)*YF3 + VT(I-1JD)*YF4 
RH1 = RHO(I- 1 JA)* YF 1 + RHO(I-l JB)*YF2 + 

1 RHO(I-l JC)*YF3 + RHO(I-l JD)*YF4 

PI = P(I-UA)*YF1+P(I-1,JB)*YF2 + 

1 P(I-1JC)*YF3 + P(I-1,JD)*YF4 


ARG = AM1**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*) t ’ ARG<0 at loc. G 10...’ WRTIE(6 ,♦),’ 
= ‘ JC(I) GOTO 3333 * 

ENDIF 

BT1 = SQRT(AM1**2 - 1.) 

BRV1 = BT1/(RH1*VT1**2) 

DY =*YC1-Y(I,1) 

CF1 =CFW/(1. + CFW*DY1*CAL) 

RHS1 =CF1*SIN(TH1)/AM1 


AMI = 4 ,AM1 WRITER,*),’ 


* LOCATE YC2 

ARG = AM2**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0atloc.Gll...’ WRITE(6,*),* AM2 = \AM2WRITE(6,*),’ 


’ I = \L’X(I) 


4 pt Lagrange 


I-W X(D 


I=‘,L’ X(I) 
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= *,X(I) GOTO 3333 
ENDIF 

EMU = .5*(EM + ATAN2(1.,(SQRT(AM2**2 - 1.)))) PHI = EMU + .5*(TH(IJ) + TH2) 

YC2 = Y(I,J) - DX*TAN(PHI) 

DC2 = SQRT(DX**2 + (Y(IJ) - YC2)**2) 

DO 230 JZ = 2JM 
J2 = JZ - 1 

IF(Y C2.LT. Y (I- 1 JZ)) GO TO 235 230 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT YC2 ♦ Use 4 pt 

Lagrange interpolation 

235 CONTINUE 
JZ = J2 
YZ = YC2 

CALL LAGRANGE(IJZ,YZ,YF1,YF2,YF3,YF4JAJBJCJD) 

TH2 = TH(I-1JA)*YF1 + TH(I-1 JB)*YF2 + 

1 TH(I-1JC)*YF3 + TH(I-1JD)*YF4 

AM2 = AM(I-1 JA)*YF1 + AM(I-1 JB)*YF2 + 

1 AM(I-1 JC)*YF3 + AM(I-1 JD)*YF4 

VT2 = VTa-1 JA)*YF1 + VT(I-1JB)*YF2 + 

1 VT(MJC)*YF3 + VT(I-1JD)*YF4 

RH2 = RH0(I-1JA)*YF1 + RHO(I-l JB)*YF2 + 

1 RHO(I- 1 JC)* YF3 + RH 0(1-1 JD)*YF4 

P2 = P(I-1 JA)*YF1 + P(I-1 JB)*YF2 + 

1 P(I-1 JC)*YF3 + P(I-1 JD)*YF4 

ARG = AM2**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITER,*),’ ARG<0atloc.G12...’WRirE(6,*),’ AM2=‘,AM2WRITE(6,*V I=\l’ X(I) 
= ‘,X(I) GOTO 3333 
ENDIF 

BT2 = SQRT(AM2**2 - 1.) 

BRV2 = BT2/(RH2*VT2**2) 

DY2 = YC2 - Y(I,1) 

CF2 = CFW/(1. + CFW*DY2*CAL) 

RHS2 = CF2*SIN(TH2)/AM2 

* LOCATE YS 

ARG = AMS* *2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),’ ARG<0 at loc.G 13.. .’WRITER,*),’ AMS = \AMSWRITE(6,*y I=‘J,’ X(I) 
= \X(I) GOTO 3333 - 

ENDIF 

EMU = .5*(EM + ATAN2(1.,(SQRT(AMS**2 - 1.)))) PHI = J*(TH(IJ) + THS) 

YS = Y(LJ) - DX*TAN(PHI) 

DS = SQRT(DX**2 + (Y(IJ) - YS)**2) 

DO 240 JZ = 2,JM 
JS=JZ-1 

IF(YS.LT.Y(I- 1 JZ)) GO TO 245 240 CONTINUE 
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4 pt Lagrange interpo- 


* COMPUTE PRESSURE & OTHER STUFF AT YS * 

lation 

245 CONTINUE 
JZ = JS 
YZ = YS 


CALL LAGRANGE(IJZ,YZ,YFl,YF2,YF3,YF4JA T JB T JC r JD) 

THS = TH(I-1 JA)*YF1 + TH(I-1 JB)*YF2 + 

1 TH(I-1JC)*YF3 + TH(I-UD)*YF4 

AMS = AM(I-1JA)*YF1 + AM(I-1JB)*YF2 + 

1 AM(I-1JC)*YF3 + AM(I-1 JD)*YF4 

VTS = VT(I-1JA)*YF1 + VT(I-1JB)*YF2 + 

1 VT(I-1 JC)*YF3 + VT(I-1 JD)*YF4 

RHOS = RHOa-1 JA)*YF1 + RH0(I-1JB)*YF2 + 

1 RHO(I-UC)*YF3 + RHOa-UD)*YF4 

PS = P(I-UA)*YF1 + P(I-1,JB)*YF2 + 

I P(I-UC)*YF3 + P(I-1,JD)*YF4 


♦ SOLVE FOR P(I,J) 

ARG = AM(I,J)**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITER,*),’ ARG<0 atloc. G14...’ WRITER,*),’ 
X(I) = ‘X(U GOTO 3333 
ENDIF 


AM(IJ) = ‘,AM(U) WRITE(6,*X’ I = ‘.I,’ 


BRV = SQRT(AM(IJ)**2 - l.y(RHO(I,J)*VT(I,J)**2) BRV1 = ,5*(BRV + BRV1) 
BRV2 = .5*(BRV + BRV2) 


RHS = CFI*SIN(TH(IJ))/AM(IJ) RHS1 = ,5*DC1*(RHS + RHS1) RHS2 = .5*DC2*(RHS + 
RHS2) 


DTH = TH 1 - TH2 

P(U) = (BRV1*P1 + BRV2*P2 - RHS1 - RHS2 - DIH)/(BRV1 + BRV2) 

SOLVE FOR TH(I,J) 

TH(U) = TH1 + BRV1*(P(U) - PI) + RHS1 


* SOLVE FOR RHOa J) 

PS/RHOS) RHO(U) = RHOS + (P(IJ) - PS)/AA 


AA = .5*G*(P(I J)/RHOa J) + 


* SOLVE FOR VT(U) 

(GM*RHO(I,J)) IF(ARG.LT.O.) THEN 
WRITE(6,*y ARG<0 at loc. G15...’ 

WRITER,*)/ HOINF = ‘^HOINF,* P(IJ) = \P(IJ) WRITE(6, 
WRITER,*),’ I = ‘ J,’ Xa) = **X(I) 

GOTO 3333 
ENDIF 


-ARG = HOINF - G*P(IJ)/ 


*),’ RHO(IJ) = *,RHO(IJ) 


VT(IJ) = SQRT(2.*(H0INF - G*P(U)/(GM*RHO(U)))) 


* SOLVE FOR OTHER STUFF 

SQRT(G*P(IJ)/RHO(IJ)) 

TR = 1. + .5*GM*AM(I,J)**2 
POaj) = P(IJ)*TR**(G/GM) 


•AM(I,J) = VT(IJ)/ 
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-DP = ABS(P(I,J) - PL) 


* CHECK CONVERGENCE AT THIS POINT — 

IF(DP.GT..001) GO TO 210 
260 CONTINUE 

* WRITE( 6 ,*)/ Done with interior points.. .starting shock../ 


POINT AT THE SHOCK 


DYI = Y(UM)-Y(I,1) 

CFI = CFW/(1. + CFW*DYI*CAL) 

♦ INITIAL SHOCK ANGLE = LAST STATION 

wsa)=wsa*D 

AMI = AMINF 
AM2 = AM(I-1 JM) 

TH2 = TH(I-1 JM) 

* GET QUANTITIES FROM OBLIQUE SHOCK RELATIONS 

410 CONTINUE 
KS = ks 4 . i 

Y(IJM) = Y(I-UM) + DX*TAN(WS(I)) 

AMN = AMINF*SIN(WS(I)) 

PR = (2.*G*AMN**2 - GM)/GP 

DEN = .5*(GP*AMN)**2/GM 

TR = (1. + .5*GM*AMN**2)*(2.*G*AMN**2AjM - l.)/DEN 

RR = PR7TR 

PL = PINF+PR 
RHOL = RHOINF*RR 
FI = AMN**2- 1. 

F2 = G*AMN**2 + 1. 

F3 = (GP*AM1*AMN)**2 
ARG = 1. - 4.*F1*F2/F3 

IF(ARG.LT.O.) THEN 

WRITE(6,*)/ ARG<0. at loc. 1../ WRTTE(6,*)/ AMN=\AMN/ AMI = \AM1 WRTTE(6 ♦)/ 
I = ‘4/ X(I) = ‘.XG) GOTO 3333 
ENDIF 

VTL ■ VINF*SQRT(1. - 4.*F1*F2/F3) 

THL = ATAN2(2.*F1,(TAN(WS(I))* 

I (2. + (GP - 2.*SIN(WS0))**2)*AM1**2))) 

AML = SQRT((GM*AMN**2 + 2 .)/ 

1 ((2.*G*AMN**2 - GM)*SIN(WS(I) - THL)**2)) 

VT(I,JM) = VTL 
RHO(I,JM) = RHOL 
P(I,JM) = PL 
AM(I,JM) = AML 
TH(IJM) = THL 


* NOW GET Pa JM) FROM MOC * LOCATE 

YC2 

ARG « AMaJM)**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*)/ ARG<0. at loc. 2../ WRITE(6,*)/ AMO JM) = \AM(IJM) WRITE(6,*),’ I = \I/ 

xa)=*jca) 

GOTO 3333 
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ENDIF 

EM = ATAN2(1.,SQRT(AM(IJM)**2 - 1.)) ARG = AM2**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITER,*),’ ARG<0. at loc. 3...’ WRITE(6,*),’ AM2 = \AM2 
WRITE(6 *),’ I = ‘X’ X(I) = ‘,X(I) GOTO 3333 
ENDIF 

EMU = .5*(EM + ATAN2(1.,(SQRT(AM2**2 - !.)))) PHI = EMU + .5*(TH(UM) + TH2) 

YC2 * Y(I,JM) - DX*TAN(PHI) 

DC2 = SQRT(DX**2 + (Y(IJM) - YC2)**2) 

* FIND J-LOCATION OF YC2 

DO 420 JZ = 2 JM 

J2=JZ- 1 IF(Y C2.LT. Y (I- 1 JZ)) GO TO 425 

420 CONTINUE ' 

* GET VALUES AT YC2 

* 4 pt Lagrange interpolation 
425 CONTINUE 

JZ = J2 
YZ = YC2 

CALL LAGRANGE(UZ,YZ,YF1,YF2,YF3,YF4JAJBJCJD) 

TH2 = TH(I-1JA)*YF1 + TH(I-1,JB)*YF2 + 

1 TH(I-1JC)*YF3 + TH(I-1JD)*YF4 

AM2 = AM(I-1JA)*YF1 + AM(I-1JB)*YF2 + 

1 AM(I-1JC)*YF3 + AM(I-1JD)*YF4 

VT2 = VT(I-1JA)*YF1 + VT(I-1,JB)*YF2 + 

1 VTa-1 JC)*YF3 + VT(I-1JD)*YF4 

RH2 = RHO(I-l JA)*YF1 + RH 0(1-1 JB)*YF2 + 

1 RHO(I- 1 JC)* YF3 + RHOa-UD)*YF4 

P2 = P(I-1JA)*YF1 + P(I-1JB)*YF2 + 

1 P(I-1 JC)*YF3 + P(I-1JD)*YF4 

ARG = AM2**2 - 1. 

IF(ARG.LT.O.) THEN 

WRITE(6,*),* ARG<0. at loc. 4...’ 

WR1TE(6,*),’ AM2 = ‘,AM2 
WRITE(6 *),’ I = ‘J/ XU) = ‘JC(I) GOTO 3333 
ENDIF 

BT2 = SQRT(AM2**2 - 1.) 

BRV2 = BT2/(RH2*VT2**2) 

*- GET AVERAGED VALUES BETWEEN YC2 AND SHOCK ATI ARG =AM(IJM)**2 

IF(ARG.LT.O.) THEN 

WMTE(6,*),’ ARG<0. at loc. 5...’ WRITE(6,*)/ AM(IJM) = *,AM(IJM) WRITE(6,*),* I *‘4,’ 
GOTO 3333 

ENDIF 

BRV = SQRT(AM(IJM)**2 - L)/(RHO(IJM)*VT(IJM)**2) BRV2 = ,5*(BRV2 + BRV) 

DY2 = YC2 - Y(U) 

CF2 = CFW/(1. + CFW*DY2+CAL) 
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RHS2 = CF2*SIN(TH2)/AM2 
RHS = Cn*SIN(TH(IJM))/AM(I,JM) 

RHS2 = J*DC2*(RHS + RHS2) 

- TH2) + RHS2)SrV2 >UTE C0RRESP0NDING VALUE OF P(UM) P(I,JM) = P2 - ((TH(I,JM) 

TR = 1. + .5*GM*AM(UM)**2 
PO(UM) = P(IJM)*TR**(G/GM) 

* COMPARE WITH SHOCK VALUE DP * P(IJM) - PL 

♦ WRITE(6,*),’ DP s ‘ J>P 
IF(ABS(DP).LT..01) GO TO 450 


*— PRESSURE NOT CONVERGED.GET NEW SHOCK ANGLE & Y-LOCATION PA 

= P(I f JM)/PINF 

FI = ,5*(GP*PA + GM)/(G*AM 1 ** 2 ) 

ARG = 1. - FI 
IF(ARG.LT.O.) THEN 


WRITER,*),’ ARG<0. at loc. 6...’ WRITE(6 ,*),’ FI = \F1 
WRITER,*),’ X(I) = \X(D 

GOTO 3333 


END IF 


wsa) = .5*(WS(I) + ATAN(SQRT(Fl/( 1 . - FI)))) 
GO TO 410 


* PRESSURE CONVERGED.SHOCK LOCATION SET 

450 CONTINUE 
+ WRITE(2 *) X(D.Y(I, I ), Y(UM) 

* WRITE(3,2) I t Xa),Yai),AMa,l),WS(U,Pai),VT(I,l) 

* 2 FORMAT(I4,6F12.4) 

* WRITE TO BODY SURFACE DATA FILE 

* WRITE(55,*)X(I) t AM(I,l),Pa,l),RHOai) 

G0 TG NEXT I-STATION — IF(X(I).LT.XF(NPF)) GO TO 

* CLOSE(2,STATUS=’KEEP’) 

* CLOSE(3, STATU S=’ KEEP’ ) 

THAT’S ALL 990 CONTINUE 

CALL RelBeachBall 
RETURN 


END 

* 

* 

SUBROUTINE CONEFLOW(DL) * 

PARAMETER (IM=501 JM=15) 

COMMON/DEPVR/ RHO(IM,JM) > VT(IM,JM),T(IM,JM),P(IMJM), 
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1 


TH(IM,JM),AM(IM,JM),WS(IM),HO(IM,JM),PO(IM,JM) 
COMMON/G ASPR/ G,RG,GM,GP,CP 
COMMON/INFTY/ AMINF,PINF,TINF,ALPHA 

DIMENSION VR(JM),VW(JM),W(JM) 

CHARACTER* 1 ZZZ 

PI =3.141592654 ” ~ 

TO = TINF*(1. + .5*GM*AMINF**2) 

VMX = SQRT(2.*CP*T0) 

CS = SQRT(G*RG *TINF) 

SIG = ATAN2(1.,SQRT(AMINF**2 - 1.)) DWS =0. 

VINF = AMINF*CS 
RHOINF = PINF/(RG*TINF) 

DLD = 180.*DL/PI 

* WRITER,*),’ In CONEFLOW...’ 

* WRITE(6,*),’ Tinf = \TINF 

* WRITE(6,*),’ TO = ‘,T0 

* WRITE(6,*),’ DL = \DLD 

* WRITE(6,*),’ AMinf = \AMINF 

* FIRST GUESS 

* Note: If angle small enough, use Mach wave, otherwise, Doty’s formula 

* DOTY’S FORMULA (for cone angle > .1 deg.) 

IF(DLD.GT.. 1 ) THEN 

THS = SIN(DL)*SQRT(.5*GP + 1V(AMINF*SIN(DL))**2) 

WS(1) = ATAN2(THS,SQRT(1. - THS* *2)) 

ELSE 

* MACH WAVE 

WS(1) = ATAN2(1.,SQRT(AMINF**2 - 1.)) 

END IF* 

* MAIN LOOP 

* 

ISTP = 0 

100 ISTP = ISTP + 1 

* GET STUFF FOR NEW SHOCK ANGLE 

* Ray angles 

DW = (WS(1) - DL)/(JM - 1.) 

DWI = 17DW 
DO 120 J = 1JM 

W(J) = DL + (J - l.)*DW 
120 CONTINUE 

* GET INITIAL VR & VW AT SHOCK 

* VRS = tangential component = on both sides of shock. 

VRS = VINF*COS(WS(l)) 

* VWS = normal component Use normal shock relations. 

VW1 = - VINF* SIN(WS( 1 )) 

AMN = AMINF*SIN(WS(1)) 

VWS =VWl*(GM*AMN**2 + 2.)/(GP*AMN**2) 
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VW(JM) = VWS 

SET UP FOR MARCHING 

VR(JM) = VRS 

VR(JM - 1) = VR(JM) - DW*VWS 

MARCH TO SURFACE DO250JB = 1JM-2 

J = JM- JB 
VRL =VR(J) 

KSTP = 0 


♦ ITERATE ON VR AT THIS POINT 

200 CONTINUE 
KSTP = KSTP + 1 
Z = VMX**2 - VR(J)**2 
IF(KSTP.EQ. 1 ) THEN 

DVR = DWI*(VR(J+1) - VR(J)) 

ELSE 

DVR = .5*DWI*(VR(J+1) - VR(J-1)) 

END IF 
VW(J) = DVR 

♦ VR(J) = VR(J+1)-.5*DW*(VW(J) + VW(J+1)) 

FI = .5*GM*Z 
F2 = DVR 
TW = TAN(W(J)) 

AK1 = FI - .5*GP*F2**2 

AK2 = Fl/TW 

AK3 = 2.*F1 - G*F2**2 


CC = (AK1*DWI - .5*AK2)*DWI 
BB = AK3 - 2.*AK1*DWI**2 
AA = (AK1+DWI + .5*AK2)*DWI 
DD = .5*GM*F2**3/TW 

VR(J-1) = (DD - BB*VR(J) - AA*VR(J+1))/CC DVRK = ABS(VR(J) - VRL) 

♦ VRL = VR(J) 

W = SQRT(VR(J-1)**2 + DVR**2) 

♦ IF(KSTP.EQ. 1 ) GO TO 200 

♦ IF(DVRK.GT..001) GO TO 200 

250 CONTINUE 


CHECK CONVERGENCE (IS VW AT WALL = 0?) 


* 

* 


VWL = VWC 
VWC = .5*DWI*(4.*VR(2) - 3.*VR(1) - VR(3)) 

WRTrE(6,*),’ Vwall = \VWC,’ Wshock = ‘,180 .♦WS(iyPI,’ deg’ 
WRITE(6 Vwall(lst-order) = *,DWI*(VR(2) - VR(1)) 
IF(ISTP.GT.5) GO TO 300 
IF(AB S(VW C).LT..5) GO TO 300 


VWLL = VWL 


* NOTCONVERGED.SETUPFORCONTINUELOOP * Use computed 

VWS to find VW1 and corresponding shock angle. 
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OM = DL/SIG 
WSLL = WSL 
WSL = WS(1) 

IF(ISTP.LT.3) THEN 
♦ WS(1) = DL + .5*SIG 

VWS = VWS + ,15*VWC 


VW1 = VWS*(GP*AMN**2)/(GM*AMN**2 + 2.) WS(1) = ATAN2(-VW 1 ,SQRT(VINF* +2 - 
VW1**2)) 

ELSE 


EM = (VWC - VWL)/(WSL - WSLL) 
WS(1) = .7*WS(1) + .3*(WSL - VWC/EM) END IF 
♦ IF(WS(I).LT.SIG) WS(1) = DL + .5*SIG 


GOTO 100 


* DONE 

300 CONTINUE 

* GET RATIOS ACROSS SHOCK 

AMST = AMINF*SIN(WS( 1 )) 

PRS = (2.*G*AMST**2 - GM)/GP 
RRS = GP*AMST**2/(GM*AMST**2 + 2.) 

TRS = PRS/RRS 

* NOW GET PROPERTIES FOR FIRST STATION 

* WRITER,*),’ Getting properties for first station...’ 

DO 400 J = 1 JM 

ST = SIN(W(J)) 

CT = COS(W(J)) 

UU = VR(J)*CT - VW(J)*ST 
VV = VR(J)*ST + VW(J)*CT 
VT(IJ) =SQRT(UU**2 + W**2)TH(1,J) =ATAN2(W,UU) 

CS = .5*GM*(VMX**2 - VT(1 J)+*2) 

AM(IJ) =VT(U)*SQRT(17CS) 

400 CONTINUE 
AMY = AM(1,JM) 

DO 420 J = 1JM 

TR = (1. + .5*GM*AMY**2)/(1. + .5*GM*AM(U)+*2) 
RHOR = TR**(17GM) 

RHO(IJ) = RHOINF*RHOR*RRS 
PR = RHOR**G 
P(1J) =PINF*PR*PRS 
T(1 J) a TTNF*TR*TRS 
420, CONTINUE 


3333 

CALL RelBeachBall 


RETURN 

END 

♦ 

* 
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LAGRANGE(I JZ,YZ,YF1 , YF2.YF3, YF4JAJB JCJD) 
(IM=50UM=15) 


SUBROUTINE 

-PARAMETER 


COMMON/GRIDS/ X(IM),Y(IM JM) 


IF(JZ.EQ.l) JPM = 1 
IF(JZ.EQ.(JM-1)) JPM = -1 

JA = JZ- 1 + JPM 
JB = JZ + JPM 
JC = JZ + 1 + JPM 
JD = JZ + 2 + JPM 

YA = Y(I-1JA) 

YB = Y(I-IJB) 

YC = Y(I-1,JC) 

YD = Y(I-1 JD) 


YF1 = (YZ - YB)*(YZ - YC)*(YZ - YD)/ 

1 ((YA - YB)*(YA - YC)*(YA - YD)) 

YF2 = (YZ - YA)*(YZ - YC)*(YZ - YD)/ 

1 ((YB - YA)*(YB - YC)*(YB - YD)) 

YF3 = (YZ - YA)*(YZ - YB)* (YZ - YD)/ 

1 ((YC- YA)*(YC - YB)*(YC - YD)) 

YF4 = (YZ - YA)*(YZ - YB)*(YZ - YC)/ 

1 ((YD - YA)*(YD - YB)*(YD - YC)) 


RETURN 

END 


SUBROUTINE CUBIC(N,X,AX,BX,CX) 


This subroutine computes the (N-l) parametric cubic spline 
coefficients for an array of N numbers. The parameter, t, 
varies between 0 and 1 on each cubic. Natural end condi- 
tions are used here. 


PARAMETER (IM=501) 

DIMENSION X(IM),AX(IM),BX(IM),CX(IM) 
DIMENSION A(IM),B(IM),C(IM),D(IM) 
CALL InitBeachBall(512) 

CALL ShowBeachBall 

* SET UP MATRIX 

DO 100 1 = 2.N-2 
C(I)= 1. 

B(I) = 4. 

A(I) = 1. 

100 CONTINUE 
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RHS 


DO 120I = 2,N-1 

Da>= 3.*(xa+i)-2.*x(i)+xa-D) 

120 CONTINUE 

* END CONDITIONS - NATURAL B(l) = 1. 

A(l) = 0. 

D(l) = 0. 

C(N-1) = 1. 

B(N-l) = 4. 

* SOLVE MATRIX DO 200 1 = 2.N-1 

CBI = C(I)/B(I-1) 

B(I) = B(I)-CBI* A(I-1) 

D(D = D(I) - CBI * D(I-1) 

CALL SpinBeachBall(l) 

200 CONTINUE 

D(N-1) = D(N-1) / B(N-I) 


DO 220 IR = 2,N-1 
I = N - IR 

DO) = (D(I) - A(D * D(I + 1)) /B(I) 220 CONTINUE 

* NOW GET COEFFS DO 240 1 = 1 JST-1 

BXa) = D(D 
240 CONTINUE 
DO 2601= l,N-2 

AX(I) = (BX(I+1) - BX(I» / 3. 

CX(I) = X(I+1) - X(I) - AX® - BX(I) 

260 CONTINUE 

CX(N-1) = 3.*AX(N-2) + 2.*BX(N-2) + CX(N-2) AX(N-1) = X(N) - BX(N-1) - CX(N-1) - X(N- 

* CALL RelBeachBall 


RETURN 

END 

♦ 

♦ 

SUBROUTINE INTRPC(X,XS,AX,BX,CX,N JT.T) 

* This subroutine finds where XS is located within 

* an array of N points X. The subroutine first 

* finds which two X’s, X(IT) & X(IT+1), XS is in 

* between and then finds the value of the parameter, 

* t, which locates XS on the cubic between them. 

* This value of t may then be used for finding the 

* ^ corresponding interpolated values of related arrays. 

PARAMETER (IM=501) ” 
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DIMENSION X(IM),AX(IM),BX(IM),CX(IM) 

— FmD WHICH TWO POINTS XS IS BETWEEN DO 100 1 = 2.N 

IF(XS.LT.X(I)) GOTO 200 
100 CONTINUE 


NOW FIND THE PARAMETER VALUE 

TINUE 


■200 


CON- 


FIRST GUESS BY LINEAR INTERPOLATION 

DX = X(IT+1) - X(TT) 

T = (XS - X(IT))/DX 


NEWTON ITERATION 


300 XL = T 

cx = (rrt X(IT) * T + bxod)*t + cxot))*t + xod - xs fp = (3*axot)'t + i*BX(ir»*T + 
T = T - F/FP 

IF(AB S(T-TL).GE. 1 .E-5) GO TO 300 


ALL DONE 

RETURN 

END 


SUBROUTINE STEPMOC(DX,YY,AMN,PN,TN,RHN,THN,VTN) * 


* This subroutine computes properties at a station downstream of 

* ^ forebody station using the Method of Characteristics. 

PARAMETER (TM=501,JM=15JI=21,NST=5) ~ _ 


COMMON/DEPVR7 RHO(IM,JM),VT(IM,JM),T(IM,JM),P(IM,JM), 

1 ™ TH(IM,JM),AM(IM,JM),WS(IM),H0(IMJM),P0(IM,JM) 
COMMON/GASPR/ G,RG,GM,GP,CP V } 

COMMON/GRIDS/ X(IM),Y(IMJM) 

COMMON/GRIDF/ XF(IM),YF(IM),CF(IM),ILF 
COMMON/INFTY/ AMINF,PINF,TINF,ALPHA 


* 

— USEFUL STUFF 

RHOINF = PINF/(RG*TINF) 

VI = AMINF*SQRT(G*RG*TINF) VINF = VI 
T0INF = TINF*(1. + .5*GM*AMINF**2) CP = G*RG/GM 
H0INF = CP*T0INF 




FIND NEAREST J 

DO 100 J = 2JM 
JZ = J-1 

IF(YY.LT.Y(ILF,J)) GO TO 105 100 CONTINUE 

INITIAL GUESS 

105 CONTINUE 
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PN = P(ILF JZ) 
AMN = AM(ILFJZ) 
RHN = RHOOLFJZ) 
VTN = VT(ILFJZ) 
THN = TH(ILFJZ) 


AMI = AMN 
TH1 = THN 
AM2 = AMN 
TH2 = THN 
AMS = AMN 
THS = THN 


PL = PN 

•LOCATE YC1 


ITERATION LOOP AT THIS POINT 


-210 CONTINUE 


EM = ATAN2(1.,SQRT(AMN**2 - 1.)) 

EMU = .5*(EM + ATAN2(1 .,(SQRT(AM 1**2 - 1.)))) PHI = EMU 
YC1 = YY + DX* TAN (PHI) 

DC1 = SQRT(DX**2 + (YY - YC1)**2) * — 

BELOW YC1 

DO 220 JZ = 2,JM 

J1 = JZ - 1 IF(YC1.LT.Y(ILFJZ)) GO TO 225 
220 CONTINUE 


.5*(THN + TH1) 

FIND NEAREST J-INDEX 


* COMPUTE PRESSURE & OTHER STUFF AT YC1 * 4 pt Lagrange 

interpolation r 6 • 

225 CONTINUE 
JZ = J1 
YZ = YC1 
I = ILF + 1 

CALL LAGRANGE(I JZ.YZ, YF1 , YF2, YF3, YF4 JA JB JC JD) 


PI = P(ILF,JA)*YF1 + P(ILF,JB)*YF2 + 1 
TH1 = TH(ILF,JA)*YF1 + TH(ILF,JB)+YF2 + 1 
TH(ILF,JD)*YF4 

AMI = AM(ILFJA)*YF1 + AM(ILFJB)*YF2 + 1 
AM(ILFJD)*YF4 

VT1 = VT(ILFJA)*YF1 + VT(ILFJB)*YF2 + 1 
VT(ILFJD)*YF4 

RH1 = RHO(I-l,JA)*YFl + RHO(ILFJB)*YF2 + 1 
RHO(ILFJD)*YF4 


P(ILF,JC)*YF3 + P(ILFJD)*YF4 
TH(ILF,JC)*YF3 + 

AM(ILF,JC)*YF3 + 

VT(ILF,JC)*YF3 + 

RHO(ILF,JC)*YF3 + 


BT1 = SQRT(AM1**2 - 1.) 
BRV1 = BT1/(RH1*VT1**2) 
RHS1 = SIN(TH1)/(AM1*YC1) 


♦. LOCATE YC2 

EMU = .5* (EM + ATAN2(1.,(SQRT(AM2**2 - 
YC2 = YY - DX*TAN(PHI) 

DC2 = SQRT(DX*+2 + (YY - YC2)**2) 

DO 230 JZ = 2,JM 
J2 = JZ - 1 

EF(YC2.LT.Y(ILFJZ)) GO TO 235 


1.)))) PHI = EMU + .5*(THN + TH2) 
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230 CONTINUE 


* COMPUTE PRESSURE & OTHER STUFF AT YC2 * Use 4 pt 

Lagrange interpolation 
235 CONTINUE 
JZ = J2 
YZ = YC2 

CALL LAGRANGE(IJZ,YZ,YFl,YF2,YF3,YF4 r JA t JB r JC r JD) 


P2 * P(ILFJA)+YF1 + P(ILF t JB)*YF2 + 
1 P(ILFJC)*YF3 + P(ILFJD)*YF4 



TH2 = TH(ILFJA)*YF1 + TH(ILF t JB)*YF2 + 1 
TH(ILFJD)*YF4 

TH(ILF,JC)+YF3 

+ 

AM2= AM(ILFJA)*YF1 + AM(ILFJB)*YF2 + 1 
AM(ILFJD)*YF4 

AM(ILF,JC)*YF3 

+ 

VT2 = VT(ILFJA)*YF1 + VT(ILFJB)*YF2 + 1 
VT(ILFJD)*YF4 

VT(ILF,JC)*YF3 

+ 

RH2 = RH0(ILFJA)*YF1 + RHO(ILFJB)*YF2 + 1 
RHO(ILFJD)*YF4 

RHO(ILF,JC)*YF3 

+ 


BT2 = SQRT(AM2**2 - 1.) 

BRV2 = BT2/(RH2*VT2**2) 

RHS2 = SIN(TH2)/(AM2*YC2) 

* _ _ LOCATE YS 

EMU = J*(EM + ATAN2(1.,(SQRT(AMS**2 - 1.)))) PHI = .5*(THN + THS) 
YS = YY - DX*TAN(PHI) 

DS = SQRT(DX**2 + (YY - YS)**2) DO 240 JZ = 2JM 
JS = JZ - 1 IF(YS.LT.Y(ILFJZ)) GO TO 245 
240 CONTINUE 


* COMPUTE PRESSURE & OTHER STUFF AT YS * 4 pt Lagrange interpo- 

lation 

245 CONTINUE 
JZ = JS 
YZ = YS 

CALL LAGRANGE(UZ,YZ,YF1 ,YF2,YF3,YF4,JAJB,JC,JD) 

PS ■ P(ILFJA)*YF1 + P(ILFJB)*YF2 + 

1 P(ILFJC)*YF3 + P(ILFJD)*YF4 

THS = TH(ILF,JA)*YF1 + TH(ILFJB)*YF2 + 1 TH(ILF,JC)*YF3 + 

TH(ILFJD)*YF4 

AMS = AM(ILFJA)*YF1 + AM(ILFJB)*YF2 + 1 AM(ILF,JC)*YF3 + 

AM(ILF r JD)*YF4 ' 

VTS = VT(ELFJA)*YF1 + VT(ILFJB)*YF2 + 1 VT(ILF.JC)* YF3 + 

VT(ILFJD)*YF4 

RHOS = RH0(ILFJA)*YF1 + RHO(ILFJB)*YF2 + 1 RHO(ILF,JC)*YF3 + 

RHO(ILFJD)*YF4 


* SOLVE FOR PN 

(RHN*VTN**2) 

RHS = SIN (THN)/ ( AMN * YY) 

BRV1 = .5*(BRV + BRV1) 


BRV = SQRT(AMN**2 - l.y 
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RHS1 = .5*DC1*(RHS + RHS1) 

BRV2 = .5*(BRV + BRV2) 
RHS2 = .5*DC2*(RHS + RHS2) 


DTH = TH1 -TH2 

PN * (BRV1*P1 + BRV2*P2 - RHS1 - RHS2 - DTH)/(BRV1 + BRV2) 

* SOLVE FOR THN 

THN = TH1 + BRV1*(PN - PI) + RHS1 


RHOS) 


SOLVE FOR RHN 


-AA = .5*G*(PN/RHN + PS/ 


RHN = RHOS + (PN - PS)/AA 
*- -SOLVE FOR VTN- 


RHN) 


VTN = SQRT(2.*ARG) 

SOLVE FOR OTHER STUFF ■ 


-ARG =HOINF - G*PN/(GM*RHN) 
AMN = VTN/SQRT(G*PN/ 


TN = PN/(RG*RHN) 

CHECK CONVERGENCE AT THIS POINT ■ 


IF(DP.GT..001) GO TO 210 


END 


-DP = ABS(PN - PL) 


-RETURN 


SUBROUTINE INLET(ISTR,AMI,PTI,AREAI,AMAV,PTAV,AREAO) 

SCRAMJET - INLET ANALYSIS ~~ 

This routine determines the internal flow field in the inlet area 
of a hypersonic SCRAMjet engine under the assumption of inviscid 
airflow using two-dimensional oblique shock/expansion relations. 
The inlet flow involves sidewall compression and diamond-shaped 
struts of arbitrary location and orientation. 

Written by Harald Buschek. 

♦ ** GEOMETRICAL DATA** 

H Width of inlet entrance 
XW1 Location of change of sidewedge 1 
XW2 Location of change of sidewedge 2 
D1 Sidewedge angle 1 before change (deg) 

D1ST Sidewedge angle 1 after change (deg) 

D2 Sidewedge angle 2 before change (deg) 

D2ST Sidewedge angle 2 after change (deg) 

NSTRUT Number of struts 

XD() Horizontal locations of struts 

YDO Vertical locations of struts 

DT() Horizontal lengths of the struts (2*DT) 
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* o 


* * 


XCC Z™* w i dths the struts (2*DD) 

De£|T 

Ompli ment to angle wn horiz) 


l 

LOGICAL LSHANG,LOUTaLNW2XNW6 . 

COMMON/STRUT/ N&ntUT 

♦ 

&^^DL (/, n 3 DAT A: y, 1 OfflNLET H- F7 3 / nm nuir “ 901 

»M 9 ^® J FIELD:) SIDEWALL-COMPRES- 

" 5 £^OHHEU«uhm: 

0 &naD0 (34HCOMBUSTION CHAMBER ENTRANCE ATX-.F7 3 / 16HFTW 

' HHNALFL0W 

' AND Y= - F7 - 3 - / ’ 4H Y.10X.2HPT) 

3 FORMAT (/,15H AVERAGES .E12.5.I9H AVER. MACH NO, 

WWTE(6,*),’ in INLET NSTRIIT <wctd NSTRUTs 

PI = 3.141592654 N STRUT= ^NSTRUT 

NG = 3 + 4*N STRUT 


931 

5 

933 
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DZ = AREAI/H1 


AMINF = AMI 
PTINF = PTI 


WRITE (19,901) H,D1,D1ST,XW1 *D2,D2ST,XW2,XCC 
D05 1= 1JVSTRUT 


SCONTIN^ (19,9 ° 3) I ^W,YD(I),DT(I),DD(I),DELST(I) 


GEOMETRICAL EVENT TYPES 

ITGEO = 1: CHANGE OF WEDGE 1 
2: CHANGE OF WEDGE 2 
3: BEGINNING OF STRUT 
4: CHANGE OF UPPER PART OF STRUT 
5: CHANGE OF LOWER PART OF STRUT 
6: END OF STRUT 

7: COMBUSTION CHAMBER ENTRANCE 

WEDGE 1 

XG(1) = XW1 
ITGEO(l) = 1 
JSTRUT(l) = 0 

WEDGE 2 

XG(2) = XW2 
ITGEO(2) = 2 
JSTRUT(2) = 0 

COMBUSTION CHAMBER 

XG(3) = XCC 
ITGEO(3) = 7 
JSTRUT(3) = 0 

STRUTS 

DO 6 1 = 1,NSTRUT 
K =4*1 

DELSTa) = DELST(I)*PI/180. 

XG(K) = XD(I) 

ITGEO(K)= 3 
JSTRUT(K) = I 

^G ( EO(K+I) X =4 )+DT ® +COS ^ ELST ® ) ' DDa) * SIN(DELST(I)) 
JSTRUT(K+1) = I 

nG < ^K+2) X =5 r,+DTa, ’ COS<DELST(I,,+DD(I) ' SIN(DELSTa)) 
JSTRUT(K+2) = I 

XG(K+3) = XD(I)+2. *DT(I)*COS(DELST(I» 

ITGEO(K+3) =6 
JSTRUT(K+3) = I 
6CONTINUE 


J = 2J4G S ° RT GE0METRICAL ARRAY XG IN ASCENDING NUMERICAL ORDER DO 12 

A =XG(J) 

K = ITGEO(J) 

KS = JSTRUT(J) 
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DO 101 = J-l, 1,-1 

IF (XG(I).LE.A) GO TO 11 
XG(I+1) =XG(I) 

ITGEOa+1) = ITGEO(I) 

JSTRUT(I+1) = JSTRUTO) 

10 CONTINUE 
I =0 

11 XG(I+1) = A 
ITGEOa+1) ■ K 
JSTRUTa+1) = KS 

12 CONTINUE 

INCOMING AIRFLOW 

AM MACH NUMBER 
P STATIC PRESSURE 
PT TOTAL PRESSURE 
TT TOTAL TEMPERATURE 
ALF FLOW ANGLE (DEG) 

G RATIO OF SPECIFIC HEATS 

TH ANGLE OF LINES AT BEGINNING OF AREA 

YL VERTICAL LOCATION OF LINES AT BEGINNING OF AREA 

ITLIN, CHARACTERISATION OF LINE-TYPES 

= 1 SHOCK WAVE, FAMILY 1 (DOWNSTREAM RIGHT RUNNING) 
= 2 SHOCK WAVE, FAMILY 2 (DOWNSTREAM LEFT RUNNING) 

= 3 EXPANSION WAVE, FAMILY 1 
= 4 EXPANSION WAVE, FAMILY 2 
= 5 SLIP LINE 
= 6 SOLID LINE, WALL 


PINF = PTINF/(1.+ .5*GM*AMINF**2)* ,,, (G/GM) * WRITE 
AMINF,PINF,PTINF,G 


(19,902) 


LSHANG = .TRUE. 


UPPER WEDGE (WEDGE 2) 


D2 = ABS(D2) 

WRITE(19,*) ‘ SHANG loc 1...D2 = \180.*D2/PI/ AM = ‘.AMINF 
CALL SHANG (AMINF,D2,G,LSHANG,THY,PY,PTY,AMY) 


D2 

AM(1) 

P(l) 

PT(1) 

ALF(1) 
TH(1) 

TH(2) 
ITLIN(l) = 6 
ITLIN(2) = 1 
YL(1) = H 

YL(2) = H 


WRITE(19,*) 
WRITE(19,*) 
WRITE(19,*) * 
WRITE(19,*) ‘ 

= -D2 
= AMY 
= PINF*PY 
= PTINF+PTY 
= D2 
= D2 
= -THY 


THY = ‘,180.*THY/PI 
PY = *,PY 
PTY = ‘,PTY 
AMY = ‘^AMY 


127 



UNAFFECTED FIELD 

AM(2) = AMINF 
P(2) = PINF 
PT(2) = PTINF 
ALF(2) = 0. 


LOWER WEDGE (WEDGE 1) 

WRITE(19,*) * SHANG loc 2...D1 = U80 .♦Dl/PI/ AM = ‘.AMINF 
CALL SHANG (AMINF,D 1 ,G,LSHANG,THY,PY,PTY,AMY) 

AM(3) = AMY 
P(3) = PINFTY 

PT(3) = PTINF* PTY 

ALF(3) = D1 
TH(3) =THY 
TH(4) = D1 

ITLIN(3) = 2 
ITLIN(4) = 6 
YL(3) =0. 

YL(4) =0. 

PRINT DATA OF FIRST AREA 

LOUT = . TRUE. 

NAREA = 1 
NL =4 
IF (LOUT) THEN 

WRITE (19,911) NAREA 
WRITE (19,912) 

WRITE (19,913) 

DO 50 1 =1,4 
THDG = TH(I)*1807PI 
ALDG = ALF(I)*180yPI 
WRITE (19,914) I,YL(I),THDG,ITLIN(I) 

IF (I.EQ.4) GO TO 50 

WRITE (19,915) I,AM(I),ALDG,P(I),PT(I) 

50 CONTINUE 
END IF 

WRITE (2,*) NL,X0 
DO 511=1 ,NL 

WRITE (2,*) YL(I),TH(I),ITLIN(I) 

51 CONTINUE 


MAIN LOOP TO CALCULATE THE INLET FLOWFIELD AREA BY AREA 

* — JLOOP 

-1 

IPRINT = 1 
IG = 1 
X0 =0. 

100 CONTINUE 
JUSE = 1 

NAREA = NAREA+1 
NWALL = 0 

♦ IF (LOUT) WRITE (19,91 1 ) NAREA 
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♦ STORE DATA OF PREVIOUS AREA XOOLD = XO 

DO 105 1 = 1,NL 
YLOLD(I) = YL(I) 

THOLDa) =TH(D 
ITLOLDCI) = ITLIN(I) 

105 CONTINUE 
DO 1061= l.NL-1 

AMOLDO) - AM(I) 

POLD(I) =P(I) 

PTOLDU) = PT(I) 

ALFOLD(I) = ALF(I) 

106 CONTINUE 


■ DETERMINATION OF NEXT INTERSECTION XMIN = XG(IG) 


IMIN = 0 
DO 1101 = l.NL-1 

IF (TH(I).GE.TH(I+1)) GO TO 1 10 „ w ^ 

TTT=TAN(TH(I))-TAN(TH(I+l))XINT=CnT*XO+YL(I+l)-YL(I))nTTIF(XINT.LT.XMIN) 

THEN 

XMIN = XINT 
IMIN = I 
END IF 

110 CONTINUE 
X0 = XMIN 


♦ SUMMING UP THE FORCES 

♦ UPPER WEDGE 

DFUW = DFUW+POLD( 1 )*(XO-XOOLD)/COS(THOLD(1)) 

♦ LOWER WEDGE 

DFLW = DFLW +POLD(NL- 1 ) * (X0- XOOLD )/C OS (THOLD(NL)) 

DO 120 I=2,NL-1 

IF (ITLIN(I).EQ.6) NWALL = NWALL+1 
120 CONTINUE 
IF (NWALL.EQ.0) GO TO 140 
IF (NWALL.EQ.2) GO TO 125 
IF (NWALL.EQ.6) GO TO 130 

♦ ONE STRUT 

125 CONTINUE 
DO 126 I=2,NL-1 

IF (ITLIN(I).EQ.6) THEN 

FST3 = FST3+POLD(I- 1 )*(XO-XOOLD)/COS(TH(I)) FST4 = FST4+POLD(I+ 1 ) * (X0-X0OLD)/ 
COS(TH(I+l)) GO TO 140 
END IF 

126 CONTINUE 
GOTO 140 

♦ TWO STRUTS 

130 CONTINUE 
K = 1 

DO 131 I=2,NL-1 

IF (ITLIN(D.EQ.6) THEN 
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K = K+l 

IF (K.EQ.2) THEN 

C^(TO(I+ /)| P ° LD(I ' 1 ) * (XO ‘ XOOLD ^ C °^( TH ^ FST2 = FST2+POLD(I+ 1 ) * (XO-XOOLDy 
ELSE IF (K.EQ.4) THEN 

C^(TOaJ?)) roLDa ' 1) * (X °' XOOLD,/COS(TH ® ) FST4 = FST4+p OLDa+l)*(XO-XOOLDy 
ELSE IF (K.EQ.6) THEN 

ro^a+f» to to l4o^ x<)OLD>/COSf^l ® , FST6 = RT6+roLD a+i)*cxo-xooLDy 

END IF 
END IF 

131 CONTINUE 

CHECK IF GEOMETRICAL EVENT 


140 CONTINUE 


* ELIMINATE NUMERICAL INACCURACIES 

DELX = ABS(XO-XG(IG)) 

IF(ITLIN(IMIN).EQ.6.AND.ITLIN(IMIN+1).EQ.6.AND.DELX.LE..05) THEN XO = XG(IG) 
IMIN = 0 
END IF 


IF (IMIN.EQ.O) THEN 
IG = IG+1 

GOTO (151,152,153,151,152,154,155), ITGEO(IG-l) END IF 
GO TO 200 


* GEOMETRICAL EVENTS ♦. 

1 OR UPPER PART OF STRUT 

151 CALL UPEXP (G, IMIN.NL, IG,*400,*330) 


CHANGE OF WEDGE 


* CHANGE OF WEDGE 2 OR 

LOWEXP (G,IMIN,NL,IG,*400,*330) 


LOWER PART OF STRUT 152 


CALL 


BEGINNING OF STRUT 

153 CALL B STRUT (G,IMIN,NLJG,*400) 

END OF STRUT 

154 CALL ESTRUT (G,IMIN,NL,IG,*300,*350) 


COMBUSTION CHAMBER ENTRANCE 

155 JLOOP = 1 

LOUT =. TRUE. 

DO 156 1 = 1,NL 

YL(I) = TAN(TH(D)*(XO-XOOLD)+YLOLD(I) 156 
IF (LOUT) WRITE (19,920) X0 
WRITE (19,91 1) NAREA 
GO TO 401 


CONTINUE 


♦ 

FLOWFIELD EVENTS 

* 


GO TO (201,202,203,204,205,206) ITLIN(IMIN) 


.* 

200 


ANALYSIS OF THE 
CONTINUE 
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* UPPER LINE IS SHOCK, FAM. 1 

201 GO TO (212,211,215,214,220,221) mJN(IMIN+l) 

* UPPER LINE IS SHOCK, FAM. 2 

202 GO TO (225,212,225,216,220,221) ITLIN(IMIN+1) 

* UPPER LINE IS EXPANSION WAVE, FAM. 1 203 GO 

(2 15.2 1 3.2 1 8.2 1 7 .223.224) ITLIN(IMIN+1) 

* UPPER LINE IS EXPANSION WAVE, FAM. 2 204 GO 

(225.2 1 6.225.2 1 8.223.224) ITLIN(IMIN+1) 

* UPPER LINE IS SLIP LINE 

205 GO TO (2 1 9,2 1 9,222,222,225,225) ITLIN(IMIN+1) 

* UPPER LINE IS SOLID WALL 

206 GO TO (221,221,224,224, 225,225) ITLIN(IMIN+1) 

* SHOCK/SHOCK, DIFFERENT FAMILIES 

21 1 CALL SSDF (G,IMIN,NL,*300,*350,IPRINT) 

* SHOCK/SHOCK, SAME FAMILIES 

212 CALL SSSF (GJMIN,NL,*300 ,*350) 


* SHOCK/EXP. WAVE, DIFF. FAMILIES, CASE A 213 

(GJMIN,NL,*300,*350,IPRINT,JUSE) 


CALL 


* SHOCK/EXP. WAVE, DIFF. FAMILIES, CASE B 214 

(G,IMINJ4L,*300,*350,IPRINTJUSE) 


CALL 


* SHOCK/EXP. WAVE, SAME FAMILIES, CASE A 215 CALL 

(G,IMIN,NL,*350) 


* SHOCK/EXP. WAVE, SAME FAMILIES, CASE B 216 CALL 

(G,IMIN,NL,*350) 


EXP. WAVE/EXP. WAVE, DIFF. FAMILIES 217 CALL 


(G,IMIN,NL,*300,*350,IPRINT) 


* EXP. WAVE/EXP. WAVE, SAME FAMILIES 

218 CALL EESF (G,IMIN,NL,*380) 

* SHOCK REFLECTION AT SLIP LINE, CASE A 219 CALL 

(G,IMIN,NL,*300,*350) 

* SHOCK REFLECTION AT SLIP LINE, CASE B 220 CALL 

(G,IMIN,NL,*300,*350) 


* SHOCK REFLECTION AT SOLID WALL 

221 CALL SRW (G,IMIN,NL,*350) 

* EXP. WAVE REFLECTION AT SLIP LINE, CASE A 222 CALL 

(G,IMIN,NL,*300,*350) 


TO 

TO 


SEDFA 

SEDFB 

SESF 

SESF 

EEDF 

SRSPA 

SRSPB 

ERSPA 
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ERSPB 


* EXP. WAVE REFLECTION AT SLIP LINE, CASE B 223 CALL 

(G4MIN,NL,*300,*350) 

* EXP. WAVE REFLECTION AT SOLID WALL 224 CALL ERW 

(G,IMIN,NL,*350) 

* IMPOSSIBLE COMBINATION! 

225 WRITE (6 ,*) ‘ERROR !’ 

* WRITE (19,*) ‘UPPER LINE IS NO.’JMIN 

* WRITE (19,*) ‘TYPE OF UPPER LINE:’4TLIN(IMIN) 

* WRITE (19,*) ‘TYPE OF LOWER LINE:’ JTLIN(IMIN+1) 

* WRITE (19,*) ‘PLEASE CHECK AGAIN!’ 

GOTO 3333 


* 

SETUP OF THE NEW AREA - ONE LINE/FIELD IS ADDED 
* 


•* FINAL 

■300 CONTINUE 


* LINE-PROPERTIES 

DO 310 I=IMIN+3,NL 

TH(I) = THOLD(I-l) 

ITLIN(I) = ITLOLD(I-l) 

310 CONTINUE 

* FIELD-PROPERTIES 

DO 311 I=IMIN+2,NL- 1 

AM(I) = AMOLD(I-l) 

P(I) = POLD(I-l) 

PT(I) = PTOLD(I-l) 

ALF(I) = ALFOLD(I-l) 

311 CONTINUE 

* VERTICAL LOCATIONS OF LINES AT NEW INTERSECTION 

DO 320 1 = 1JMIN-1 

YL(I) = TAN(TH(I))*(XO-XOOLD)+YLOLD(I) 

320 CONTINUE 

YINT = TAN(THOLD(IMIN))*(XO-XOOLD)+YLOLD(IMIN) 

DO 321 I=IMINJMIN+2 
YL(I) = YINT 

321 CONTINUE 
DO 322 I=IMIN+3,NL 

YL(D = TAN(THOLD(I- 1 ))*(XO-XOOLD)+YLOLD(I- 1) 

322 CONTINUE 

GO TO 400 


NAL SETUP OF THE NEW AREA - TWO LINES/FIELDS ARE ADDED 

* 

TINUE 


-330 


FI- 


CON- 


LINE-PROPERTIES 

DO 331 1 = IMIN+3.NL 

TH(I) = THOLD(I-2) 
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ITUNO) = ITL0LD(I-2) 

331 CONTINUE 

♦ FIELD-PROPERTIES 

DO 332 1 = IMIN+2,NL-1 

AM(I) = AMOLD(I-2) 

P(I) = POLDa-2) 

PTa) = PTOLD(I-2) 

ALF(D = ALFOLD(I-2) 

332 CONTINUE 

* VERTICAL LOCATIONS OF LINES AT NEW INTERSECTION DO 333 1 = 1JMIN- 

YL(I) = TAN(TH(T))*(XO-XOOLD)+YLOLD(I) 

333 CONTINUE 

YINT = TAN(THOLD(IMIN))*(XO-XOOLD)+YLOLD(IMIN) 

DO 334 1 = IMIN,IMIN+2 
YL(I) = YINT 

334 CONTINUE 
DO 335 1 = IMIN+3,NL 

YL(I) = TAN (THOLD(I-2)) * (XO-XOOLD)+YLOLD(I-2) 

335 CONTINUE 

GO TO 400 


* 

* FINAL SETUP OF THE NEW AREA - NO LINE/FIELD IS ADDED 


350 CONTINUE 

* VERTICAL LOCATIONS OF LINES AT NEW INTERSECTION 

DO 3601= UMIN-1 

YL(I) = TAN(TH(I))*(XO-XOOLD)+YLOLD(I) 

360 CONTINUE 

YINT = TAN(THOLD(IMIN))*(XO-XOOLD)+YLOLD(IMIN) 

DO 361 1 = IMIN,IMIN+1 
YL(D = YINT 

361 CONTINUE 
DO 362 1 = IMIN+2JVL 

YL(I) = TAN(THOLD(I))*(XO-XOOLD)+YLOLD(I) 

362 CONTINUE 

GO TO 400 


NAL SETUP OF THE NEW AREA - ONE LINE/FIELD IS SUBTRACTED 
TTNUE — 


■* FI- 

380 CON- 


LINE-PROPERTIES 

DO 385 1 = IMIN+1 JSIL 

TH(I) = THOLD(I+l) 
ITUNO) = ITLOLD0+1) 
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385 CONTINUE 


FIELD-PROPERTIES 

DO 386 1 = IMIN,NL- 1 

AM (I) = AMOLD(I+l) 
P(I) =POLDa+l) 
PTa) =PTOLDa+l) 
ALFa) = ALFOLD(I+l) 
386 CONTINUE 


VERTICAL LOCATIONS OF LINES AT NEW INTERSECTION DO 390 1 = 1 JMIN- 


YL(D = TAN(TH(I))*(XO-XOOLD)+YLOLD(I) 
390 CONTINUE 


YI ^ = ^^^2b D ?^P^ ) *^^ X ^ LD)+ ^ 0LD(IMIN ) YLOMIN) = YINT 
UU 5y 1 1 = 1MIN+1 JnL 

YL(I) = TAN(THOLD(I+1))*(XO-XOOLD)+YLOLD(I+1) 391 CONTINUE 


400 CONTINUE 
LOUT =. TRUE. 


* PRINTOUT - STUFF 

* 


* 


401 


♦ 


+ 


450 


IF (LOUT) WRITE (19,913) 

IF (LOUT) THEN 
DO 4501= 1,NL 

THDG = TH(I)*180./PI 
ALDG = ALF(I)*1807PI 
WRITE (19,914) I,YL(I),THDG,ITLIN(I) 
IF (I.EQ.NL) GO TO 450 
WRITE (19,915) I,AM(I),ALDGJP(I),PT(I) 
CONTINUE 
END IF 


WRITE TO BODY SURFACE DATA FILE IF FIRST STREAM TUBE IF(ISTR.EQ. 1) 

ASTRUT = 0. 

FLX = 0. 

FMM =0. 

SQSTF = SQRT (G/(RG*T0INF)) 


DO 4601= l.NL-1 

IF (PTa).NE.0.) THEN 
DY = YL(I) - YL(I+1) 

„ Fi = (1. + .5*GM*AM(I)**2)**(.5*GP/GM) 

DFLX =PT(I)*DY*Hl*DZ*AM(I)*COS(ALF(I))*SQSTF/Fl FLX 
TR = 1. + .5*GM*AM(I)**2 
RHO = PT(I)/(RG*T0INF*TR**( 1 7GM)) 

_____ U2 = G*RG*TOINF*(AM(I)*COS(ALF(I)))+*2/TR 

DFMM =(P(I) + RHO*U2)*DY*Hl*DZ ’ 

FMM = FMM + DFMM 
ELSE 

ASTRUT = ASTRUT+(YL(I)-YL(I+1)) 

END IF 


= FLX + DFLX 
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460 CONTINUE 

WIDTH = YL(1) - YL(NL) - ASTRUT 
AREAO = WIDTH*H1*DZ 

* NOW GET AVG’D MASS & MOMENTUM FLUXES FROM CONT EQN, etc. R1 

FLX/AREAO 

R2 = FMM/ AREAO 
R3 = HOENF 
AA = .5*GP/GM 
BB =R2/GM 

CC = R3*R1**2 - .5" , R2**2 
DSC = BB**2 - 4.*AA*CC 

IF(DSC.LT.O.) THEN 

* WRITE(6,*),’ Uh-oh....DSC < 0...’ 

* WRITE(6,*),’ AA = ‘AA 

* WRITE(6 ,*),’ BB = ‘3B 

* WRITE(6 ,*),* CC = \CC 

* WRITE(6 ,*),’ DSC = ‘.DSC 

* WRITE(6,*),’ R1 = ‘,R1 

* WRITE(6 *),’ R2 = \R2 

* WRITER,*),’ R3 = ‘,R3 

GOTO 3333 
END IF 

* Note: This PAV is for M>1 as is appropriate here. 

* If M<1 at this point though, use PAV = .5*(BB + SQRT(DSC))/AA 

PAV = .5*(BB - SQRT (DSC))/ AA 
UAV = (R2 - PAV)/R1 
RHAV = Rl/UAV 

AMAV = U A V/SQRT (G * P A V/RH A V) 

* WRITE(55 *) XO.AMAV.PAV.RHAV 


ENDIF 


+ END OF LOOP 


IF (NAREA.EQ.500) THEN 

WRITE (6,*) ‘NUMBER OF ALLOWABLE AREAS EXCEEDED!’ GOTO 3333 
ENDIF 

* WRITE (2,*) NLXO 
DO 499 J = 1.NL 

♦ WRITE (2,*) YL(D,TH(D,1TLIN(D 

499 CONTINUE 

IF (JLOOP) 100,500,500 

500 CONTINUE 


* FINAL PT-DISTRIBUTION 

* 

+ WRITE (19,930) 

♦ WRITE (19,931) YL(1),YL(NL) 

DO 550 j = l.NL-l 

* WRITE ( 19,932) YL(j)J J T(j) 
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550 CONTINUE 


* AVERAGE PT 

ASTRUT = 0. 

FLX = 0. 

FMM s 0. 

SQSTF = SQRT(G/(RG*T0INF)) 

DO 5601= l.NL-1 

IF (PT(I).NE.O.) THEN 
DY= YL(I) - YL(I+1) 

FI = (1. + .5*GM*AM(I)**2)**(.5*GP/GM) 

DFLX = PT(I)*DY*H1 *DZ*AM(D*COS(ALF(I))*SQSTF/Fl FLX = FLX + DFLX 

TR = 1. + .5*GM*AM(I)**2 
RHO = PT(I)/(RG*T0INF*TR**(1JGM)) 

U2 = G*RG*TOINF*(AM(I)*COS(ALF(I)))**2/TR 
DFMM = (P(I) + RHOHJ2)*DY*Hl*DZ 
FMM = FMM + DFMM 
ELSE 

ASTRUT = ASTRUT+(YL(I)-YL(I+1» 

END IF 

560 CONTINUE 
WIDTH = YL(1) - YL(NL) - ASTRUT 
AREAO = WTDTH*H1*DZ 

* WRITE(6,*), WIDTH.HIJDZ 

* WRTIE(6 Streamtube area at end of inlet = ‘.AREAO 

* WRITE(6,*),’ Mass Flux at end of inlet = ‘.FLX 

* WRITE(6,*),’ Momentum flux at end of inlet = ‘.FMM 

* WRITER,*),* P(3) = *,P(3) 


* NOW GET AVG’D MASS & MOMENTUM 

FLX/ AREAO 


FLUXES FROM CONT EQN, etc. R1 


R2 = FMM/ AREAO 
R3 = H0INF 


AA = ,5*GP/GM 
BB =R2/GM 

CC = R3*R1**2 - .5*R2**2 

DSC = BB**2 - 4.*AA*CC IF(DSC.LT.O.) THEN 

* WRITER,*),’ Uh-oh....DSC < 0...’ 

* WRITE(6,*),’ AA = ‘.AA 

* WRITE(6,*),’ BB = ‘,BB 

♦ WRITER,*),’ CC = ‘.CC 

* WRITE(6,*),’ DSC = ‘.DSC 

♦ WRITER,*),’ R1 = \R1 

♦ WRITE(6,*),’ R2 = ‘412 

♦ WRITER,*),’ R3 = \R3 

GOTO 3333 
ENDIF 


— Note: This PAV is for M>1 as is appropriate here. 

- If M<1 at this point though, use PAV = .5*(BB + SQRT(DSC))/AA 
PAV = .5*(BB - SQRT(DSC))/AA 

UAV = (R2 - PAV)/R1 
RHAV = Rl/UAV 

AMAV = UAV/SQRT(G*PAV/RHAV) 
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PTAV = PAV*(1. + .5*GM*AMAV**2)**(G/GM) 


WRITE (19,933) PTAV.AMAV 

WRITE (6,*) .’check point 560',PTAV,AMAV 


FORCES 

WRITE (19,*) ‘FORCE ON UPPER WEDGE: ‘JDFUW 
WRITE (19,*) ‘FORCE ON LOWER WEDGE: ‘JDFLW 
WRITE (19,*) ‘FORCE ON UPPER STRUT (TOP): ‘.FST1 
WRITE (19,*) ‘FORCE ON UPPER STRUT (BOTTOM): \FST2 
WRITE (19,*) ‘FORCE ON MIDDLE STRUT (TOP): \FST3 
WRITE (19,*) ‘FORCE ON MIDDLE STRUT (BOTTOM): ‘,FST4 
WRITE (19,*) ‘FORCE ON LOWER STRUT (TOP): ‘.FST5 
WRITE (19,*) ‘FORCE ON LOWER STRUT (BOTTOM): ‘.FST6 


* CLOSE (2,STATUS=’KEEP’) 

* CLOSE ( 19,STATUS=’ KEEP’) 
3333 

RETURN 

END 


SUBROUTINE UPEXP (G,IMIN,NL,IG,*,*) 
* 

THE FLOW CONDITIONS BEHIND AN 


SUBROUTINE ‘UPEXP’ CALCULATES 


* EXPANSION WHICH TAKES PLACE ABOVE A CONTOUR (LOWER WEDGE, UPPER 

* PART OF A STRUT) 


* REGION 1: ‘UNDISTURBED’ FLOW 

* REGION 2: BETWEEN THE FORWARD AND REARWARD CREATED EXPANSION 
WAVE 

* REGION 3: BEHIND THE REARWARD EXPANSION WAVE 

* 

PARAMETER (NGMAX=23,NLMAX=201,NFMAX=200,NST=5) ~~ 


DIMENSION JSTRUT(NGMAX) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFM AX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 1 
PTOLD(NFMAX),ALFOLD(NFMAX)JILOLD(NLMAX) 


LOGICAL LPM.LOUT 


COMMON/INLTO/ AM,P,PTALF,TH,ITLIN,AMOLD,POLDTTOLD,ALFOLD, 
1 THOLD,ITLOLD,YL,YLOLD V XOXOOLD,LOUT 

COMMON/GEO/ H,H 1 ,XW 1 ,XW2,D 1 £> 1 ST,D2,D2ST,XD(NST), YD(NST), 

1 DT(NST),DD(NST),XCC,DELST(NST),JSTRUT,ALST 


♦, _ 

FORMAT (38HCHANGE OF LOWER WEDGE (WEDGE 1) AT X= ,F7 3) 
991 FORMAT (21HUPPER CHANGE OF STRUT J2,7H ATX= ,F7.3) 

PI = 3.141592654 


-990 
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♦ ANALYZE THE GEOMETRIC EVENT 

♦ KST = JSTRUT(IG-1) 

IF (KST.EQ.O) THEN 

♦ IF (LOUT) WRITE (19,990) XO 
D = D1-D1ST 

IMIN = NL 

ELSE 


♦ IF (LOUT) WRITE (19,991) KST,X0 

D = 2.*ATAN2(DD(KST),DT(KST)) 

SSTR = SQRT (DD(KST)* *2+DT (KST) * *2) 

PHI = DELST(KST)+ATAN2(DD(KST)T)T(KST)) YSTR = SSTR*SIN(Pffl)+ YD(KST)+.00000 1 
DO 70 1 = 1 ,NL 

YCHECK = TAN(TH(D)*(XO-XOOLD)+YL(I) IF (Y CHECK.GT. YSTR) THEN 
IMIN = 1+1 
ELSE 
GO TO 75 
END IF 

70 CONTINUE 

75 CONTINUE 

END IF 


♦ CALCULATE THE NEW FIELDS 


AMI = AM(IMIN-1) 

ALF1 = ALF(IMlN-l) 

CALL PM (AM 1 ,D,G,AM3,TH3FW,TH3RW,TH3 J>3) D = D/2. 
CALL PM (AM 1 ,D,G, AM2,TH2FW,TH2RW,TH2,P2) 


* ASSIGN NEW LINES/FIELDS 


NL = NL+2 

IF (KST.NE.O) GO TO 200 

* CHANGE OF LOWER WEDGE 

* UPPER EXPANSION WAVE 

TH(NL-2) = TH3FW+ALF1 
ITLIN(NL-2) = 4 


LOWER EXPANSION WAVE 

TH(NL-l) = TH3RW+ALF1 
ITLIN(NL-1) = 4 

SOLID WALL 

TH(NL) = D1ST 
ITLIN(NL) = 6 


* REGION 2 

AM(NL-2) = AM2 
P(NL-2) = P2*POLD(NL-3) 
PT(NL-2) = PTOLD(NL-3) 
ALF(NL-2)= Dl-((Dl-DlST)/2.) 
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* REGION 3 

AM(NL-1) = AM3 
P(NL-1) = P3*POLD(NL-3) 

PT(NL-1) = PTOLD(NL-3) 

ALF(NL-1)= D1ST 

* VERTICAL LOCATION OF LINES AT GEOMETRIC EVENT DO 1001= l,NL-3 

YL(I) » TAN(THOLD(I))*(XO-XOOLD)+YLOLD(I) 100 CONTINUE 
YW1 = TAN (THOLD(NL-2)) * (XO-XOOLD)+YLOLD(NL-2) YL(NL-2) = YW1 
YL(NL-1) = YW1 
YL(NL) = YW1 

RETURN I 

* CHANGE OF STRUT 

200 CONTINUE 

* UPPER EXPANSION WAVE 

TH(IMIN) = TH3FW+ALF1 
ITLIN(IMIN) = 4 


* LOWER EXPANSION WAVE 

TH(IMIN+1) = TH3RW+ALF1 
ITLIN(IMIN+1) = 4 

* SOLID WALL 

TH(IMIN+2) = -ATAN2(DD(KST),DT(KST))+DELST(KST) ITLIN(IMIN+2) = 6 

* REGION 2 

AM(IMIN) = AM2 
P(IMIN) = P2*POLD(IMIN-l) 

PT(IMIN) = PTOLD(IMIN-l) 

ALF(IMIN)= ALF1-D 

* REGION 3 

AM(IMIN+1) = AM3 
P(IMIN+1) = P3*POLD(IMIN-l) 

PTaMIN+1) = PTOLD(IMIN-l) 

ALF(IMIN+1)= -ATAN2(DD(KST)JDT(KST))+DELST(KST) 

RETURN 2 
END 


SUBROUTINE LOWEXP (G,IMIN,NLJG,V) 
* 

LATES THE FLOW CONDITIONS BEHIND AN 


* 

SUBROUTINE ‘LOWEXP’ CALCU- 


* EXPANSION WHICH TAKES PLACE BELOW A CONTOUR (UPPER WEDGE, LOWER 

* PART OF STRUT) 


*. 


* 


* REGION 1: ‘UNDISTURBED’ FLOW 

* REGION 2: BETWEEN THE FORWARD AND REARWARD CREATED EXPANSION 
WAVE 


♦ REGION 3: BEHIND THE REARWARD EXPANSION WAVE 
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♦ + 

PARAMETER (NGMAX=23,NLMAX=201,NFMAX=200,NST=5) 


DIMENSION JSTRUT(NGMAX) 

DIMENSION YL(NLMAX),TO(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),TOOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 


LOGICAL LPM.LOUT 


COMMON/INLTO/ AMP,PT,AlJ%TO,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 
1 THOLD,ITLOLD,YL ( YLOLD^O r XOOLD,LOUT 

COMMON/GEO/ H,H 1 ,XW 1 ,XW2,D 1 £> 1 ST t D2,D2ST^CD(NST),YD(NST), 

1 DT(NST),DD(NST) t XCC,DELST(NST)JSTRUT,ALST 


FORMAT (38HCHANGE OF UPPER WEDGE (WEDGE 2) AT X= ,F7.3) 

991 FORMAT (21HLOWER CHANGE OF STRUT J2,7H AT X= J7.3) 

PI= 3.141592654 


* ANALYZE TOE GEOMETRIC EVENT 


KST = JSTRUT(IG-1) 

IF (KST.EQ.O) THEN 

* IF (LOUT) WRITE (19,990) XO 
D = -D2+D2ST 

IMIN = 1 

ELSE 

* IF (LOUT) WRITE (9,991) KST,X0 
D = 2.*ATAN2(DD(KST),DT(KST)) 

SSTR = SQRT(DD(KST)**2+DT(KST)**2) 

£ HI = -DELST(KST)+ATAN2(DD(KST),DT(KST)) YSTR 

SSTR*SIN(PHI)+YD(KST)+.000001 DO 30 1 = 1,NL 

YCHECK = TAN(TH(I))*(XO-XOOLD)+YL(I) IF (Y CHECK.GT. YSTR) THEN 
IMIN = 1+1 
ELSE 
GO TO 50 
END IF 

30 CONTINUE 

50 CONTINUE 

END IF 


♦ CALCULATE TOE NEW FIELDS 


AMI = AM(IMIN) 

ALF1 = ALF(IMIN) 

CALL PM (AM 1 ,D,G,AM3,TO3FW,TO3RW,TO3J > 3) TH3FW = -TO3FW 
TH3RW = -TO3RW 
D = D/2. 

CALL PM (AM 1 ,D,G,AM2,TH2FW,TH2RW,TH2,P2) 
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* ASSIGN NEW LINES/FIELDS 


NL = NL+2 

IF (KST.NE.O) GO TO 200 

♦ CHANGE OF UPPER WEDGE 

* SOLID WALL 

TH(1) = D2ST 
ITLIN(1) = 6 

* UPPER EXPANSION WAVE 

TH(2) = TH3RW+ALF1 
ITLIN(2) = 3 

* LOWER EXPANSION WAVE 

TH(3) = TH3FW+ALF1 
ITLIN(3) = 3 

♦ REGION 2 

AM(2) = AM2 
P(2) = P2*POLD(l) 

PT(2) = PTOLD(l) 

ALF(2)= D2+((-D2+D2ST)/2.) 

♦ REGION 3 

AM(1) = AM3 
P(l) = P3*POLD(l) 

PT(1) = PTOLD(l) 

ALF(1)= D2ST 

* LINE-PROPERTIES 

DO 110 1=4, NL 

TH(I) = THOLD(I-2) ITLIN(I) = ITLOLD(I-2) 

110 CONTINUE 

♦ FIELD-PROPERTIES 

DO 111 I=3,NL-1 

AM(I) = AMOLD(I-2) 

P(I) =POLDa-2) 

PT(I) = PTOLD(I-2) 

ALF0) = ALFOLD(I-2) 

111 CONTINUE 


* VERTICAL LOCATION OF LINES AT GEOMETRIC EVENT YW2 

TAN(THOLD( 1 ))*(XO-XOOLD)+ YLOLD( 1 ) YL(1) = YW2 
YL(2) = YW2 
YL(3) = YW2 


DO 120 I=4,NL 

YL(I) = TAN(THOLD(I-2))*(XO-XOOLD)+YLOLD(I-2) 120 CONTINUE 
RETURN 1 
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* CHANGE OF STRUT 

200 CONTINUE 

* SOLID WALL 

TH(IMIN) = DELST(KST)+ATAN2(DD(KST),DT(KST)) I1LIN(IMIN) = 6 

* UPPER EXPANSION WAVE 

TH(IMIN+1) = TH3RW+ALF1 
ITLIN(IMIN+1) = 3 

* LOWER EXPANSION WAVE 

TH(IMIN+2) = TH3FW+ALF1 
ITLIN(IMIN+2) = 3 

* REGION 2 

AM(IMIN+1) = AM2 
P0MIN+1) = P2*POLD(IMIN) 

PT0MIN+1) = PTOLD(IMIN) 

ALF(IMIN+1)= ALF1+D 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) = P3*POLD(IMIN) 

PTOMIN) = PTOLD(IMIN) 

ALF(IMIN)= DELST(KST)+ATAN2(DD(KST),DT(KST)) 

RETURN 2 
END 

* 

* 

SUBROUTINE B STRUT (G,IMIN,NL,IG,*) 

* .* 

SUBROUTINE ‘B STRUT’ CALCULATES THE FLOW CONDITIONS BEHIND THE 

* DISTURBANCES CAUSED BY THE BEGINNING OF THE STRUT 

* 

* REGION 1: ‘UNDISTURBED’ FLOW 

♦ REGION 2: BEHIND UPPER CREATED WAVE 

♦ REGION 3: INTERIOR OF DIAMOND, DEAD ZONE 
+ REGION 4: BEHIND LOWER CREATED WAVE 

* ♦ _____ 

PARAMETER (NGMAX=23,NLMAX=201,NFMAX=200,NST=5) 

DIMENSION JSTRUT(NGMAX) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),mJN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 1 
PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 

LOGICAL LSHANG,LPM,LOUT 

COMMON/INLTO/ AM,P,PT,ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLD v XOXOOLD t LOUT 

COMMON/GEO/ H,H 1 ,XW I ,XW2,D 1 ,D 1 ST £>2,D2ST,XD(NST), YD(NST), 

1 DT(NST),DD(NST)XCC,DELST(NST)JSTRUT,ALST 
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■990 


FORMAT ( 1 8HBEGINNING OF STRUTJ2.7H AT X= ,F7.3) 

PI = 3.141592654 
KST = JSTRUT(IG-1) 

* IF (LOUT) WRITE (19,990) KST.X0 


* * DETERMINATION OF THE 

AFFECTED FLOWFIELD 

* DO 1001 = 1,NL 

YCHECK = TAN(TH(I))*(XO-XOOLD)+YL(I) IF (Y CHECK.GT. YD(KST)) THEN 

IMIN = I 
ELSE 

GOTO 150 
END IF 
100 CONTINUE 


* CALCULATE THE NEW FIELD 


150 CONTINUE 
AMI = AM (IMIN) 

ALF1 = ALF(IMIN) 

DU = ATAN2(DD(KST),DT(KST))+DELST(KST) DL = ATAN2(DD(KST),DT(KST))- 
DELST(KST) LSHANG = .TRUE. 

* REGION 2 

D = DU-ALF1 
IF (D.GT.0) THEN 
KU = 0 

* WRITE(9,*) ‘ SHANG loc 3...D = \180.*D/PI,’ AMI = ‘.AMI 
CALL SHANG (AM 1 ,D,G,LSHANG,TH2,P2,PT2,AM2) 

ITLIN(IMIN+1) = 2 

ALF2 = DU 
ELSE 
KU = 1 
D = ABS(D) 

CALL PM(AM1,D,G,AM5,TH5FW,TH5RW,TH5,P5) TH2 = TH5FW 
PT5 = 1. 

D = D/2. 

CALL PM(AM 1 J),G,AM2,TH2FW,TH2RW,TH2AV,P2) PT2= 1. 

ITLIN(IMIN+1) = 4 
ITLIN(IMIN+1+KU) = 4 
ALF2 = ALF1-D 
END IF 

* REGION 4 

D = DL+ALF1 
IF (D.GT.0) THEN 
KL = 0 

* WRITE(19 ,*) * SHANG loc 4...D = \180.*D/PI,* AMI = ‘.AMI 
CALL SHANG (AM 1 ,D,G, LSHANG, TH4,P4,PT4,AM4) ITLIN(IMIN+4+KU) = 1 

ALF4 = -DL 


143 


ELSE 


KL = 1 
D = ABS(D) 

CALL PM(AM 1 JD,G,AM6,TH6FW,TH6RW,TH6,P6) TH4 =TH6FW 
PT6 = 1. 

D = D/2. 

CALL PM(AM 1 JD,G,AM4,TH4FW,TH4RW,TH4AV,P4) PT4 = 1. 
lTLIN(IMIN+3+KU+KL) = 3 ITLIN(IMIN44+KU+KL) = 3 
ALF4 = ALF1+D 
END IF 

* ASSIGNING THE NEW LINES AND FIELDS IF (KU.NE.O.OR.KL.NE.O) THEN 

NL = NL+5 

ELSE 

NL = NL+4 
END IF 

* UPPER WAVE 

TH(IMIN+1) = TH2+ALF1 
IF (KU.EQ.O) GO TO 50 

* SECOND UPPER WAVE (ONLY EXPANSION) TH(IMIN+1+KU) = ALF1+TH5RW 

50 CONTINUE 

* UPPER BORDER OF DIAMOND TH(IMIN+2+KU) = DU ITLIN(IMIN+2+KU) = 6 

* LOWER BORDER OF DIAMOND TH(IMIN+3+KU) = -DL ITLIN(IMIN+3+KU) = 6 

IF (KL.EQ.O) GO TO 60 

* SECOND LOWER WAVE (ONLY EXPANSION) TH(IMIN+3+KU+KL) = - 

TH6RW+ALFI 

60 CONTINUE 

* LOWER WAVE 

TH(IMIN+4+KU+KL) = -TH4+ALF1 

* REGION 2 

AM(IMIN+1) = AM2 

P(IMIN+1) = P2*POLD(IMIN) PT(IMIN+1) = PT2*PTOLD(IMIN) ALF(IMIN+1)= ALF2 
IF (KU.EQ.O) GO TO 70 

* REGION 5 (ONLY EXPANSION) AM(IMIN+2) = AM5 

P(IMIN+2) = P5*POLD(IMIN) PT(IMIN+2) = PT5*PTOLD(IMIN) ALF(IMIN+2)= DU 
70 CONTINUE 

* REGION 3, DEAD ZONE AM(IMIN+2+KU) = 0. P(IMIN+2+KU) = 0. PTOMIN+2+KU) 

= 0. ALF(IMIN+2+KU)= 0. 

IF (KL.EQ.0) GO TO 80 

* REGION 6 (ONLY EXPANSION) AM(IMIN+3+KU) = AM6 POMIN+3+KU) = 

P6*POLD(IMIN) PT(IMIN+3+KU) = PT6*PTOLD(IMIN) ALF(IMIN+3+KU)= -DL 

80 CONTINUE 

* REGION 4 
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AM(IMIN+3+KU+KL) = AM4 

P(IMIN+3+KU+KL) = P4* POLD(IMIN) PT(IMIN+3+KU+KL) = PT4*PTOLD(IMIN) 
ALF(IMIN+3+KU+KL)= ALF4 


* FINAL SETUP OF THE NEW AREA 

* * LINE-PROPERTIES 

DO 310 I=IMIN+5+KU+KL,NL 

TH(I) = THOLD(I-4-KU-KL) ITLIN(I) = ITLOLD(I-4-KU-KL) 

310 CONTINUE 

♦ FIELD-PROPERTIES 

DO 31 1 I=IMIN+4+KU+KL,NL- 1 

AM (I) = AMOLD(I-4-KU-KL) 

P(I) = POLD(I-4-KU-KL) 

PT(I) = PTOLD(I-4-KU-KL) ALF(I) = ALFOLD(I-4-KU-KL) 

311 CONTINUE 

♦ VERTICAL LOCATIONS OF LINES AT BEGINNING OF DIAMOND 

DO 320 1 = UMIN 

YL(I) = TAN(THOLD(I))*(XO-XOOLD)+YLOLD(I) 

320 CONTINUE 

DO 321 I=IMIN+ 1 JMIN+4+KU+KL 
YL(I) = YD(KST) 

321 CONTINUE 

DO 322 I=IMIN+5+KU+KL,NL 

YL(I) = TAN(THOLD(I-4-KU-KL))*(XO-XOOLD)+YLOLD(I-4-KU-KL) 322 CON- 
TINUE 

RETURN 1 
END 


SUBROUTINE ESTRUT (G,IMIN,NL,IG, V) 

* * 

SUBROUTINE ‘ESTRUT’ CALCULATES THE FLOW CONDITIONS BEHIND THE 

* END OF THE STRUTS 

* 

* IN THIS CASE A FLOW PATTERNIS CREATED THAT IS EITHER SIMILAR TO 

* TO A SHOCK/SHOCK OR A SHOCK/EXP. WAVE INTERSECTION (DIFFERENT 

* FAMILIES) DEPENDING ON THE FLOW ANGLES BEHIND THE STRUT 


PARAMETER (NGMAX=23,NLMAX=201 ,NFMAX=200,NST=5) 

DIMENSION JSTRUT(NGMAX) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX)JTLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX),ITLOLD(NLMAX) 

LOGICAL LOUT 

COMMON/INLTO/ AM t P,PT t ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLDXOXOOLD,LOUT 
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COMMON/GEO/ H,H 1 ,XW 1 ,XW2,D 1 JD 1 ST t D2,D2ST t XD(NST),YD(NST), 
1 DT(NST),DD(NST)^CC,DELST(NST) t JSTRUT,ALST 


* 990 FOR- 

MAT (12HEND OF STRUT ,12, 7 H AT X= ,F7.3) 

PI = 3.141592654 
KST = JSTRUT(IG-1) 

♦ IF (LOUT) WRITE (19,990) KST,X0 


♦ DETERMINATION OF THE AFFECTED FLOWFIELD 

♦ YSTE 

YD(KST)+2.*DT(KST)*SIN(DELST(KST))+.000001 DO 100 I=2,NL 
YCHECK = TAN(TH(I))*(XO-XOOLD)+YL(I) 

IF (Y CHECK.GT. Y STE) THEN 
IMIN = 1+1 
ELSE 

GOTO 150 
END IF 

100 CONTINUE 


* CALCULATE THE NEW FIELDS 

+ 

150 CONTINUE 
IPRINT = - 1 

CALL SSDF (G,IMIN,NL,*200,*2104PRINT) 

200 CONTINUE 
IRESL = -1 
GO TO 250 
210 CONTINUE 
IRESL = 1 


* CHECK IF NEW FLOW ANGLE IS GREATER THAN ADMISSIBLE * 

FOR A TWO SHOCK FLOW PATTERN 
250 CONTINUE 

DCRIT1 = ATAN2(DD(KST)X>T(KST))+DELST(KST) 

DCRIT2 = -ATAN2(DD(KST),DT(KST))+DELST(KST) IF (ALF(IMIN).GT.DCRrTl) THEN 
JUMP = -1 

ELSE IF (ALFdMIN).LT.(DCRIT2)) THEN 
JUMP = 1 
ELSE 

JUMP = 0 
END IF 

IF(JUMP) 300,600,300 

♦ NO PURE SHOCK/SHOCK INTERSECTION, RESET DATA 300 CONTINUE 

IF (1RESL.NE. 1) NL = NL-1 
DO 3101= 1,NL 

TH(I) = THOLD(I) 
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ITLIN(I) = ITLOLD(I) 

310 CONTINUE 
DO 31 1 1 = 1,NL-1 

AM (I) = AMOLD(I) 

P(I) = POLDG) 

PTa) = PTOLDCI) 

ALFa) = ALFOLD(I) 

311 CONTINUE 

IF (JUMP) 400,600,500 

♦ UPPER CREATED WAVE IS SHOCK BUT LOWER ONE IS EXPANSION 400 

CONTINUE 

IPRINT = -1 
JUSE = 1 

CALL SEDFA (G JMIN,NL,*700 *800 JPRINT JUSE) 

* LOWER CREATED WAVE IS SHOCK BUT UPPER ONE IS EXPANSION 500 

CONTINUE 

IPRINT = -l 
JUSE = 1 

CALL SEDFB (G,IMIN,NL *700,*800JPRINTJUSE) 


* FLOWFEELD IS DETERMINED, RETURN TO MAIN PROGRAM 


600 CONTINUE 
IF (IRESL) 700,700,800 

700 CONTINUE 
RETURN 1 

800 CONTINUE 
RETURN 2 
END 


SUBROUTINE SSDF (GJMIN.NL.VJPRINT) *- 

* SUBROUTINE ‘SSDF CALCULATES THE 

FLOW CONDITIONS BEHIND TWO 

♦ INTERSECTING ARBITRARY OBLIQUE SHOCKS OF DIFFERENT FAMILIES, 

♦ DERIVED FROM THE PREVIOUSLY DEVELOPPED SUBROUTINE ‘INSECT 


REGION 1: BEHIND LOWER FIRST SHOCK 
REGION 2: BEHIND UPPER FIRST SHOCK 
REGION 3: BEHIND UPPER SECOND SHOCK 
REGION 4: BEHIND LOWER SECOND SHOCK 


PARAMETER (NLMAX=20 1 ,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 
1 ALF(NFMAX),ITLIN(NLMAX) 
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DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 

1 PTOLD(NFMAX),ALFOLD(NFMAX)4TLOLD(NLMAX) 

LOGICAL LSHANG.LOUT 

COMMON/INLTO/ AM J\PT,ALF,TH,ITLIN,AMOLD ,POLD JTOLD.ALFOLD, 

1 THOLD,rrLOLD,YL,YLOLD^O^COOLD,LOUT 

♦— 990 FOR- 

MAT (34HSHOCK/SHOCK, DIFF. FAMILIES AT X= ,F7.3) 

991 FORMAT (6HLINES ,I3,5H AND J3) 

996 FORMAT (22HSLIP LINE IS NEGLECTED) 

IF (LOUT) THEN 
* IF (IPRIND 2,1,1 
1 

IMINPL = IMIN+1 


2 IPRINT = 1 
END IF 

PI = 3.141592654 


* PROVIDE INITIAL VALUES 

* 


AM1=AM(IMIN+1) 

AM2= AM(EMIN-l) 

ALFO = ALF(IMIN) 

ALF1 = ALF(IMIN+1) 

ALF2 = ALF(IMIN-l) 

♦ FIRST GUESS FOR THE NEW FLOW ANGLE OMEGA OMEGA3 = ALF2+(ALF1- 

ALFO) 

OMEGA4 = ALF1 +(ALF2- ALFO) 

OMEGA * (OMEGA3+OMEGA4)/2. 

♦ CALCULATE ANGLES OF SECOND SHOCKS WITH GUESSED OMEGA LSHANG 

- FAL<5F 

D3 = -ALF2+OMEG A 

♦ WRITE(19*)‘ In SSDF...IMIN = ‘JMIN 

♦ WRITE(19 *) ‘ SHANG loc 5...D3 = \180 *D3/PI,’ AM2 = *,AM2 
CALL SHANG (AM2,D3,G,LSHANG,TH3,PZZ,PTZZ,AMZZ) 

D4 = OMEGA- ALF1 
D4 = ABS(D4) 

♦ WRITE(19 f *)‘ SHANG loc 6...D4 = \180 *D4/PI,* AMI = \AM1 . 

CALL SHANG (AM 1 ,D4,G,LSHANG,TH4J > ZZ,PTZZ,AMZZ) 

♦ ITERATE THE NEW SHOCK WAVE ANGLES TH3 AND TH4 

♦ (NEWTON’S METHOD) 

NTH = 1 

PI = P(IMIN+1) 

P2 = P(IMIN-1) 
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50 CONTINUE 
TH30LD = TH3 
TH40LD = TH4 

53 = (SIN(TH3))**2 

54 = (SIN(TH4))**2 
C3 = (COS(TH3))**2 
C4 = (COS(TH4))**2 
AMS3 = AM2**2*S3 
AMS4 = AM1**2*S4 
GP = G+1. 

GM = G-1. 

CT3 = 17TAN(TH3) 

CT4 = 17TAN(TH4) 

* EVALUATE THE F-FUNCTION FF 

FF = S3-P1/P2*(AM1/AM2)**2*S4-(1.-P1/P2)*GM/(2*G*AM2**2) 

* EVALUATE THE G-FUNCTION GF 

GF1 = ATAN2(2 *CT3*(AMS3-1.),(2.+AM2**2*(GP-2*S3))) GF2 = ATAN2(2.*CT4*(AMS4- 
l.),(2.+AM 1**2*(GP-2*S4))) 

GF = GF1+ALF2+GF2-ALF1 

* EVALUATE THE DERIVATIVES 

FTH3 = 2.*SIN(TH3)*COS(TH3) 

FTH4 = -2.*Pl/P2*(AMl/AM2)**2*SIN(TH4)*COS(TH4) 

GTH31 = (2.+AM2**2*(GP-2.*S3))*(2.*AM2**2*(2.*C3-l.)+2./S3) GTH32 = 
8.*AM2**2*C3*(AMS3-1.) 

GTH33 = (2.+AM2**2*(GP-2.*S3))**2 
GTH34 = (2.*CT3*(AMS3-1.))**2 
GTH3 = (GTH3 1 +GTH32)/(GTH33+GTH34) 

GTH41 = (2.+AMl**2*(GP-2.*S4))*(2.*AMl**2*(2.*C4-l.)+2./S4) GTH42 = 
8.*AM1**2*C4*(AMS4-1.) 

GTH43 = (2.+AM 1 **2*(GP-2.*S4))**2 
GTH44 = (2.*CT4*(AMS4-1.))**2 
GTH4 = (GTH41+GTH42)/(GTH43+GTH44) 

DETI= 1 V(FTH3*GTH4-FTH4*GTH3) 

* NEW VALUES FOR TH3, TH4 

TH3=DETI*(-GTH4*FF+FTH4*GF)+TH30LDTH4=DETI*(GTH3*FF-FTH3*GF)+TH40LD 
IF ( ABS(TH3-TH30LD).LT„0000 1 . AND. AB S(TH4-TH4OLD).LT..0000 1 ) THEN GO TO 100 
ELSE 

NTH = NTH+1 
IF (NTH.GT.10) THEN 

* WRITE (19,*) ‘ TOO MANY ITERATIONS’ 

GOTO 3333 

END IF 
GO TO 50 
END IF 

* NEW FLOW ANGLE OMEGA 
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100 CONTINUE 
OMEGA3 = GF1+ALF2 
OMEGA4 = ALF1-GF2 


* FLOW CONDITIONS IN REGIONS 3 AND 4 OMEGA = (OMEGA3+OMEGA4)/2. 

D3 = -ALF2+OMEGA 
D4 = ALF1 -OMEGA 
LSHANG = .TRUE. 

* WRITE(19 ,*) 4 SHANG loc 6...D3 = \180.*D3/PL’ AM2 = ‘,AM2 

* WRITE(19,+) 4 D4 = \180.*D4/PI,* AMI = \AM1 

CALL SHANG (AM2,D3,G,LSHANG,TH3,P3,PT3,AM3) 

CALL SHANG (AM 1 ,D4,G,LSHANG,TH4,P4,PT4,AM4) TH4 = -TH4 

* ASSIGNING THE NEW LINES AND FIELDS * CHECK IF SLIP LINE IS 

NEGLECTABLE 

PT3 = PT3*PTOLD(IMIN-l) 

PT4 = PT4*PTOLD(IMIN+ 1 ) 

IF (ABS(AM3-AM4).LE..010.AND.ABS((PT3-PT4)/PT3).LE..010) THEN ISLIP = 1 
ELSE 

ISLIP = -l 
END IF 

IF (ISLIP) 200,200,300 

+ REGULAR PROCEDURE, SLIP LINE IS ADDED 200 CONTINUE 

NL = NL+1 


UPPER SHOCK 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 


* SLIP LINE 

TH(IMIN+1) = OMEGA 
ITLIN(IMIN+1) = 5 

* LOWER SHOCK 

TH(IMIN+2) = TH4+ALF1 
ITLIN(IMIN+2) = 1 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) = P3*POLD(IMIN-l) 

PT(IMIN) = PT3 
ALF(IMIN)= OMEGA 

* REGION 4 

AM(IMIN+1) = AM4 

P(IMIN+1) = P4*POLD(IMIN+l) PT(IMIN+1) = PT4 
ALF(IMIN+1)= OMEGA 

RETURN 1 


♦— — * 

SMALL DIFFERENCES BETWEEN REGION 3 AND 4, SLIP LINE NEGLECTED 
* 300 CON- 


150 



TINUE 


♦ IF (LOUT) WRITE (19,996) 

♦ UPPER SHOCK 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 


* LOWER SHOCK 

TH(IMIN+1) = TH4+ ALF(IMIN+ 1 ) 
ITLIN(IMIN+1) = 1 

* REGION 3 ■ REGION 4 

AM(IMIN) = (AM3+AM4)/2. 
P(IMIN) = P3*POLD(IMIN-l) 
PT(IMIN) = AMIN1(PT3,PT4) 
ALF(IMIN)= OMEGA 
3333 

RETURN 2 
END 


SUBROUTINE SSSF (GJMIN.NL,*,*) * 

* SUBROUTINE ‘SSSF’ CALCULATES THE FLOW CON- 
DITIONS BEHIND TWO 

* INTERSECTING OBLIQUE SHOCKS OF THE SAME FAMILY 

* REGION 0 : ABOVE BOTH INCOMING SHOCKS 

* REGION 1 : IN BETWEEN THE INCOMING SHOCKS 

* REGION 2 : BELOW BOTH INCOMING SHOCKS 

* REGION 3,4: BEHIND THE RESULTING WAVES 


PARAMETER (NLMAX=201,NFMAX=200) 


DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 1 
PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 


LOGICAL LOUT 


COMMON/INLTQ/AM,P,PT,ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 
1 THOLD,rTLOLD,YL,YLOLD,XO,XOOLD,LOUT 


* 

(33HSHOCK/SHOCK, SAME FAMILIES AT X= ,F7.3) 
991 FORMAT (6HLINES ,I3,5H AND 43) 


-990 FORMAT 


IF (LOUT) THEN 
WRITE (19,990) X0 
IMINPL = IMIN+1 
WRITE (19,991) IMINJMINPL 
END IF 
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PI = 3.141592654 


JUSE = 4 
IPRINT = -1 

GO TO (100,200) ITLIN(IMIN) 

SHOCKS OF FAMILY 1 

100 CONTINUE 

CALL SEDFB (G.IMIN.NL,'* 500, *600 JPRINT JUSE) 

SHOCKS OF FAMILY 2 

200 CONTINUE 

CALL SEDFA (GJMIN,NL,*500,*600,IPRINTJUSE) 

500 CONTINUE 
RETURN 1 

600 CONTINUE 
RETURN 2 
END 


SUBROUTINE SEDFA (G,IMIN,NL,*,*,IPRINTJUSE) * 

* SUBROUTINE ‘SEDFA’ CAL- 


CULATES THE FLOW CONDITIONS BEHIND TWO 

INTERSECTING SHOCK AND EXPANSION WAVES OF DIFFERENT FAMILIES 
CASE A: EXPANSION WAVE OF FAMILY 1, SHOCK OF FAMILY 2 


NOTE: 

THIS SUBROUTINE IS ALSO USED FOR THE DETERMINATION OF THE FLOW- 
FIELD BEHIND THE REFLECTION OF A WAVE AT A SLIP LINE SINCE THE 
RESULTING WAVE PATTERN IS IN THIS CASE SIMILAR 
IN THE SAME WAY IT IS USED TO ITERATE THE WAVE PATTERN BEHIND 
INTERSECTING WAVES OF THE SAME FAMILIES. 


REGION I: BEHIND LOWER FIRST SHOCK 

REGION 2: BEHIND UPPER FIRST EXPANSION WAVE 

REGION 3: BEHIND UPPER SECOND SHOCK 

REGION 4: BEHIND LOWER SECOND EXPANSION WAVE 


PARAMETER (NLMAX=201,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX)J > (NFMAX),PT(NFMAX) 

1 ALF(NFMAX),ITLIN(NLMAX) h 

> 

LOGICAL LSHANG.LPM J.OUT 

COMMON/INLTO/ AM,P,PTALF,TH,ITLIN,AMOLD,POLDJTOLD,ALFOLD 
1 THOLD,ITLOLD,YL,YLOLD,XOXOOLD,LOUT 
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990 FORMAT 

(46HSHOCK/EXPANSION, DIFF. FAMILIES, CASE A AT X= ,F7.3) 99 1 FORMAT (6HLINES 
J3.5H AND ,13) 

995 FORMAT (17HWAVE IS NEGLECTED) 

996 FORMAT (22HSLIP LINE IS NEGLECTED) 

IF (LOUT) THEN 
IF (IPRINT) 2,1,1 

1 

DvUNPL = IMIN+1 


2 IPRINT = 1 
END IF 

PI = 3.141592654 


* 

* PROVIDE INITIAL VALUES 

» 


ALFO = ALF(IMIN) 
ALF1 = ALF(IMIN+1) 
ALF2 = ALF(IMIN-l) 
AM1= AM(IMIN+1) 
AM2= AM(IMIN-l) 

PI = PQMIN+l) 

P2 =P(IMIN-1) 


FIRST GUESS FOR THE NEW FLOW ANGLE OMEGA 

GO TO (20,21,21,22,23) JUSE 

INITIAL GUESS FOR SHOCK/EXP. WAVE INTERSECTION 20 CONTINUE 

OMEGA3 = ( ALF2+( ALF 1 - ALFO)) 

OMEGA4 = (ALF 1+(ALF2- ALFO)) 

OMEGA = (OMEGA3+OMEGA4)/2. 

IF (OMEGA.LT.O.) THEN 
OMEGA = .98*OMEGA 
ELSE 

OMEGA = 1.02*(OMEGA+l.E-5) 

END IF 
GO TO 25 

INITIAL GUESS FOR REFLECTION AT SUP LINE 21 CONTINUE 

OMEGA3 = ( ALF2+( ALF 1 - ALFO)) 

OMEGA4 = (ALF 1 +( ALF2- ALFO)) 

OMEGA = (OMEGA3+OMEGA4)/2. 

IF (OMEGA.LT.O.) THEN 
OMEGA = .98* OMEGA 
ELSE 

OMEGA = 1 .02*(OMEGA+1 .E-5) 

END IF 
GO TO 25 

INITIAL GUESS FOR TWO SHOCKS OF SAME FAMILY 22 CONTINUE 
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IF (ALF1.LT.0.) THEN 
OMEGA = 0.98*ALF1 
ELSE 

OMEGA * 1.02*(ALFl+l.E-5) 

END IF 
GO TO 25 

* INITIAL GUESS FOR TWO EXP. WAVES OF SAME FAMILY 23 CONTINUE 

IF (ALF2.LT.0.) THEN 
OMEGA = 0.98*ALF2 
ELSE 

OMEGA = 1.02*(ALF2+l.E-5) 

END IF 

25 CONTINUE 

* CALCULATE ANGLE OF SECOND SHOCK WITH GUESSED OMEGA LSHANG = 

FAI SF 

D3 = OMEGA- ALF2 

CALL SHANG (AM2,D3,G,LSHANG,TH3,PZZ,PTZZ,AMZZ) 

* CALCULATE MACH NUMBER BEHIND SECOND EXPANSION WITH GUESSED 

OMEGA D4 = OMEGA-ALF1 

CALL PM (AM 1 ,D4,G AM4.TH 1 ZZ,TH2ZZ,TH3ZZ,PZZ) 


ITERATE THE NEW SHOCK WAVE ANGLE TH3 AND MACH NUMBER AM4 
+ (NEWTON’S METHOD) 

* NTH = 1 

GP = G+1. 

GM = G-l. 

GPM = GP/GM 
50 CONTINUE 
TH30LD = TH3 
AM40LD = AM4 
S3 = (SIN(TH3))**2 
C3 = (COS(TH3))**2 
CT3 = 1/TAN(TH3) 

AMS3 = AM2**2*S3 
AMQI = AM1**2-1. 

AMQ4 = AM4**2-1. 

AMG1 = l.+GM/2.*AMl**2 

AMG4 = l.+GM/2.*AM4**2 

* EVALUATE THE F-FUNCTION FF 

FF1 = ( AMG4/ AMG 1 )** (-G/GM) 

FF = (2.*G*AMS3-GM)/GP-P1/P2*FF1 

* EVALUATE THE G-FUNCTION GF 

GF1 = ATAN2(2.*CT3*(AMS3-1.),(2.+AM2**2*(GP-2.*S3))) 

GF2 = SQRT(GPM)*ATAN(SQRT(1./GPM*AMQ4))-ATAN(SQRT(AMQ4)) GF3 = 
SQRT(GPM)*ATAN(SQRT(17GPM*AMQ1))-ATAN(SQRT(AMQ1)) GF = GF1+ALF2- 
GF2+GF3-ALF1 
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* EVALUATE THE DERIVATIVES 

FTH3 = 4.*G/GP*AM2**2*SIN(TH3)*COS(TH3) 

FAM4 = P1/P2*G*AM4*AMG1**(G/GM)*AMG4**(-G/GM-1.) 

GTH31 = (2.+AM2**2*(GP-2.*S3))*(2.*AM2**2*(2.*C3-l.)+2./S3) GTH32 = 
8.*AM2**2*C3*(AMS3- 1 .) 

GTH33 = (2.+AM2**2*(GP-2.*S3))**2 
GTH34 = (2 *CT3*(AMS3-1.))**2 
GTH3 = (GTH31+GTH32)/(GTH33+GTH34) 

GAM4 = 1 7SQRT ( AMQ4)*( 1 7AM4- AM4/( 1 .+ 1 7GPM* AMQ4)) 

DETI = 17(FTH3*GAM4-FAM4*GTH3) 

* NEW VALUES FOR TH3, AM4 

TH3 = DETI*(-GAM4*FF+FAM4*GF)+TH30LD 
AM4 = DETI*(GTH3*FF-FTH3*GF)+AM40LD 

IF (ABS(TH3-TH30LD).LT..00001 AND.ABS(AM4-AM40LD).LT..0001) THEN GO TO 100 
El SF 

NTH = NTH+1 
IF (NTH.GT.10) THEN 

WRITE (6,*) 4 TOO MANY ITERATIONS’ 

GOTO 3333 
END IF 
GO TO 50 
END IF 

* NEW FLOW ANGLE OMEGA 

100 CONTINUE 
OMEGA3 = GF1+ALF2 
OMEGA4 = GF2-GF3+ALF1 

* FLOW CONDITIONS IN REGIONS 3 AND 4 OMEGA = (OMEGA3+OMEGA4V2. 

D3 = OMEGA- ALF2 
LSHANG = .TRUE. 

CALL SHANG (AM2,D3,G,LSHANG,TH3J>3,PT3^M3) 

D4 = OMEGA-ALF1 

CALL PM (AM 1 ,D4,G,AM4,TH4FW,TH4RW,TH4,P4) 

TH4 = -TH4 


* ASSIGNING THE NEW LINES AND FIELDS 


♦ CHECK IF SLIP LINE OR REFLECTED WAVE IS NEGLECT ABLE PT3 = 

PT3+PTOLD(IMIN-l) 

PT4 = PTOLD(EMIN+l) 

PT1 = PTOLD(IMIN+l) 

PT2 = PTOLD(IMIN-l) 

P3 = P3*POLD(IMIN-l) 

P4 = P4*POLD(IMIN+l) 

DFM23 = AM2-AM3 
DFA23 = OMEGA- ALF2 
DFP23 = (P3-P2)/P2 
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DFPT23 = (PT2-PT3)/PT2 
DFM14 = AM4-AM1 
DFA14 = 0MEGA-ALF1 
DFP14 = (P1-P4)/P1 

GO TO (151,152,153,152,153) JUSE 

* CHECK IF SLIP LINE IS NEGLECTABLE 

151 CONTINUE 

IF (ABS(AM3-AM4).LE.0.010.AND.ABS((PT3-PT4)/PT3).LE.0.010) THEN JUMP = 4 
ELSE 

JUMP= 1 
END IF 
GO TO 160 

* CHECK IF EXP. WAVE IS NEGLECTABLE 

152 CONTINUE 

IF (DFM 1 4.LE..01 0. AND.DFA 1 4.LE..0035. AND.DFP14.LE..010) THEN JUMP = 3 
ELSE 
JUMP= 1 
END IF 
GOTO 160 

* CHECK IF SHOCK IS NEGLECTABLE 

153 CONTINUE 

IF (DFM23.LE..010.AND.DFA23.LE..0035.AND.DFP23.LE..010.AND.DFPT23. 1 
LE..010) THEN 

JUMP = 2 
ELSE 
JUMP = 1 
END IF 

160 CONTINUE 

GO TO (200,300,400,500) JUMP 


+ 

LINE IS ADDED 
* 


NL = NL+1 


REGULAR PROCEDURE, SLIP 
200 CONTINUE 


-UPPER SHOCK 
TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 

-SLIP LINE 
TH(IMIN+1) = OMEGA 
ITLIN(IMIN+1) = 5 

- LOWER EXPANSION WAVE 
TH(IMIN+2) = TH4+ALF1 
ITLIN(IMIN+2) = 3 

-REGION 3 
AM(IMIN) = AM3 
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P(IMIN) = P3 
PT(IMIN) = PT3 
ALF(IMIN)= OMEGA 

* REGION 4 

AM(IMIN+1) = AM4 
P(IMIN+1) =P4 
PT(IMIN+1) = PTOLD(IMIN+l) 
ALF(IMIN+1)= OMEGA 

3333 

RETURN 1 


* 

SMALL DIFFERENCES IN REGION 2 AND 3, REFLECTED SHOCK WAVE 
* NEGLECTED 

+ 

TINUE 


IS 


300 CON- 


* IF (LOUT) WRITE (19,995) 

D = ABS(ALF2-ALF1) 

CALL PM (AM 1 ,D,G AM4,TH4FW,TH4RW,TH4,P4) TH4 = -TH4 

♦ SLIP LINE 

TH(IMIN) = ALFOLD(IMIN-l) 

ITLIN(IMIN) = 5 


LOWER EXPANSION WAVE 

TH(IMIN+1) * TH4+ALF1 
ITLIN(IMIN+1) = 3 

REGION 4 (REGION 3 REMAINS UNCHANGED) AM(IMIN) = AM4 

P(IMIN) = POLD(IMIN-l) 

PT(IMIN) = PTOLD(IMIN+l) 

ALF(IMIN)= ALFOLD(IMIN-l) 

RETURN 2 


* 

SMALL DIFFERENCES IN REGION 1 AND 4, REFLECTED EXP WAVE IS 
* NEGLECTED 


TINUE 

♦ IF (LOUT) WRITE (19,995) 

D = ABS(ALF1-ALF2) 

LSHANG = .TRUE. 

CALL SHANG (AM2,D,G,LSHANG,TH3,P3,PT3,AM3) 

* UPPER SHOCK 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 


400 CON- 
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SLIP LINE 

TH(IMIN+1) = ALF0LD(IMIN+1) 
ITLIN(IMIN+1) = 5 

REGION 3 

AM(IMIN) = AM3 
P(IMIN) = POLD(IMIN+l) 
PT(IMIN) = PT3*PTOLD(IMIN-l) 
ALF(IMIN)= ALFOLD(IMIN+l) 

RETURN 2 


*. 


.* 


SMALL DIFFERENCES BETWEEN REGION 3 AND 4, SLIP LINE NEGLECTED 
*— 500 


TINUE 


CON- 


* IF (LOUT) WRITE (19,996) 

* UPPER SHOCK 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 


LOWER EXPANSION WAVE 

TH(IMIN+1) = TH4+ALF1 
ITLIN(IMIN+1) = 3 

REGION 3 = REGION 4 

AM(IMIN) = (AM3+AM4)/2. 
P(IMIN) =P3 

PT(IMIN) = PTOLD(IMIN+ 1 ) 
ALF(IMIN)= OMEGA 

RETURN 2 
END 


SUBROUTINE SEDFB (G,IMIN,NL,* .MPRINTJUSE) * 

■* SUBROUTINE 

‘SEDFB* CALCULATES THE FLOW CONDITIONS BEHIND TWO 

* INTERSECTING SHOCK AND EXPANSION WAVES OF DIFFERENT FAMILIES, 

* CASE B: SHOCK OF FAMILY 1, EXPANSION WAVE OF FAMILY 2 

* NOTE: 

* THIS SUBROUTINE IS ALSO USED FOR THE DETERMINATION OF THE FLOW- 

* FIELD BEHIND THE REFLECTION OF A WAVE AT A SLIP LINE SINCE THE 

* RESULTING WAVE PATTERN IS IN THIS CASE SIMILAR 

* IN THE SAME WAY IT IS USED TO ITERATE THE WAVE PATTERN BEHIND 

* INTERSECTING WAVES OF THE SAME FAMILIES. 

* REGION 1 : BEHIND LOWER FIRST EXPANSION WAVE 

* REGION 2: BEHIND UPPER FIRST SHOCK 

* REGION 3: BEHIND UPPER SECOND EXPANSION WAVE 

* REGION 4: BEHIND LOWER SECOND SHOCK 
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* 


PARAMETER (NLMAX=20 1 ,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 

LOGICAL LSHANG,LPM,LOUT 

COMMON/INLTQ/ AM ,P,PT ALF,TH,ITLIN, AMOLD J^LD.PTOLD, ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLD t XO t XOOLD,LOUT 


^oT T Tii 6 ?^^ I ^ P r J ^ NSI0N ’ DIFF - FAMILIES, CASE B AT X= ,F7.3) 991 FORMAT 
(6HLINES ,B,5H AND ,13) 

995 FORMAT (17HWAVE IS NEGLECTED) 

996 FORMAT (22HSLIP LINE IS NEGLECTED) 

IF (LOUT) THEN 
IF (IPRINT) 2,1,1 

1 

IMINPL = IMIN+1 


2 IPRINT = 1 
END IF 

PI = 3.141592654 


* PROVIDE INITIAL VALUES 


ALFO = ALF(IMIN) 
ALF1 = ALF(IMIN+1) 
ALF2 = ALF(IMIN-l) 
AM1= AM(IMIN+1) 
AM2= AM(IMIN-l) 

PI = P(TMIN+1) 

P2 = P(IMIN-l) 


FIRST GUESS FOR THE NEW 

GO TO (20,21,21,22,23) JUSE 


FLOW ANGLE OMEGA 


INITIAL GUESS FOR SHOCK/EXP. 

OMEGA3 = ( ALF2+( ALF 1 - ALFO)) 
OMEGA4 = (ALF 1+(ALF2- ALFO)) 
OMEGA = (OMEGA3+OMEGA4)/2. 

IF (OMEGA.LT.O.) THEN 
OMEGA = 1.02*OMEGA 
ELSE 


WAVE INTERSECTION 20 CONTINUE 


OMEGA = 0.98*(OMEG A- 1 .E-5) 
END IF 
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GO TO 25 


* INITIAL GUESS FOR REFLECTION AT SUP LINE 21 CONTINUE 

OMEGA3 = (ALF2-KALF1-ALF0)) 

OMEGA4 = (ALF1 +CALF2-ALF0)) 

OMEGA = (OMEGA3+OMEGA4)/2. 

IF (OMEGA. LT.O.) THEN 
OMEGA = 1.02+OMEGA 
ELSE 

OMEGA = 0.98*(OMEGA-l.E-5) 

END IF 
GO TO 25 

* INITIAL GUESS FOR TWO SHOCKS OF SAME FAMILY 

22 CONTINUE 

IF (ALF2.LE.0.) THEN 

OMEGA = 1.02*(ALF2-l.E-5) 

ELSE 

OMEGA = 0.98*ALF2 
END IF 
GO TO 25 

* INITIAL GUESS FOR TWO EXP. WAVES OF SAME FAMILY 

23 CONTINUE 

IF (ALF1.LE.0.) THEN 

OMEGA = 1.02*(ALFl-l.E-5) 

ELSE 

OMEGA = 0.98*ALF1 
END IF 

25 CONTINUE 

* CALCULATE MACH NUMBER BEHIND SECOND EXPANSION WITH GUESSED 

OMEGA D3 = ABS(-OMEGA+ALF2) 

CALL PM (AM2,D3,G,AM3,TH1ZZ,TH2ZZ,TH4ZZ,PZZ) 


CALCULATE ANGLE OF SECOND SHOCK WITH GUESSED OMEGA 

LSHANG = .FALSE. 

D4 = ABS(-OMEGA+ALFl) 

CALL SHANG (AM1,D4,G,LSHANG,TH4^>ZZ,PTZZ,AMZZ) 


* ITERATE THE NEW SHOCK WAVE ANGLE TH4 AND MACH NUMBER AM3 

* (NEWTON’S METHOD) 

* — — NTH = 1 

GP = G+l. 

GM = G-l. 

GPM = GP/GM 
50 CONTINUE 
TH40LD = TH4 
AM30LD = AM3 
S4 = (SIN(TH4))**2 


160 



C4 = (COS(TH4))**2 
CT4 = 17TAN(TH4) 

AMS4 = AM1**2*S4 
AMQ2 = AM2**2-1. 

AMQ3 = AM3**2-1. 

AMG2 = 1.-KJM/2 *AM2*+2 
AMG3 = 1.+GM/2 *AM3**2 


EVALUATE THE F-FUNCTION FF FF1 

FF = P 1/P2*(2. *G* AMS4-GM)/GP-FF1 


= (AMG3/AMG2)**(-G/GM) 


EVALUATE THE G-FUNCTION GF 


GF1 = ATAN2(2.*CT4*(AMS4- 1 .),(2.+AM 1 **2*(GP-2*S4))) 

= S QRT(GPM) * ATAN ( S Q rt ( 1/gpm * am Q3))- ata N(SQRT(AMQ3)) GF3 = 
SQRT(GPM)* A TAN(SQRT(17GPM*AMQ2))- A TAN(SQRT(AMQ2)) GF = -GF1+ALF1+GF2- 
GF3-ALF2 


* EVALUATE THE DERIVATIVES 

FTH4 = P1/P2"‘4.*G/GP*AM1**2*SIN(TH4)*C0S(TH4) 

FAM3 = G*AM3*AMG2**(G/GM)*AMG3**(-G/GM-1.) 

V 2 * <GP * 2 ' , ' ,S4)),,,(2 * ,, ' AM1 * ,,,2 *< 2 * ,,,C4 - 1 *> +2 - /S4 ) GTH42 = 
8.*AM1**2*C4*(AMS4-L) 

GTH43 = (2.+ AM 1**2* (GP-2. * S4)) **2 

GTH44 = (2 *CT4*(AMS4-1.))**2 

GIH4 = -(GTH4 1 +GTH42)/(GTH43+GTH44) 

GAM3 = 1 7SQRT ( AMQ3)*(- 1 7AM3+ AM3/( 1 .+ 1 7GPM* AMQ3)) 

DETI = 17(FAM3*GTH4-FTH4*GAM3) 

* NEW VALUES FOR TH3, AM4 

TH4 = DETI*(GAM3*FF-FAM3*GF)+TH40LD 
AM3 = DE’n*(-GTH4*FF+FTH4*GF)+AM30LD 

IF (ABS(TH4-TH40LD).LT..00001.AND.ABS(AM3-AM30LD).LT..0001) THEN GO TO 100 
ELSE 

NTH = NTH+1 
IF (NTH.GT.10) THEN 

* WRITE ( 19,*) 4 TOO MANY ITERATIONS’ 

GOTO 3333 

END IF 
GO TO 50 
END IF 


NEW FLOW ANGLE OMEGA 

100 CONTINUE 
OMEGA4 = -GF1+ALF1 
OMEGA3 = -GF2+GF3+ALF2 


— — RLOW CONDITIONS IN REGIONS 3 AND 4 OMEGA = (OMEGA3+OMEGA4V2 
D3 = -OMEGA+ALF2 


CALL PM (AM2,D3,G,AM3,TH3FW,TH3RW,TH3,P3) 
LSHANG = .TRUE. 


D4 = -OMEGA+ALF1 


161 


CALL SHANG (AM 1 ,D4,G JLSHANG,TH4,P4,PT4,AM4) TH4 = -TH4 

*_ 

* ASSIGNING THE NEW LINES AND F IELD S 

*- CHECK IF SLIP LINE OR REFLECTED WAVE IS NEGLECT ABLE PT3 = 

PTOLD(IMIN-l) 

PT4 = PT4*PTOLD(IMIN+l) 

PT1 = PTOLD(IMIN+ 1 ) 

PT2 = PTOLD(IMIN-l) 

P3 = P3*POLD(IMIN-l) 

P4 = P4*POLD(IMIN+l) 

DFM23 = AM3-AM2 
DFA23 = ALF2-OMEGA 
DFP23 = (P2-P3)/P2 
DFM14 = AM1-AM4 
DFA14 = ALF1-OMEGA 
DFP14 = (P4-P1)/P1 
DFPT14 = (PT1-PT4)/PT1 

GO TO (151,152,153,152,153) JUSE 

♦ CHECK IF SLIP LINE IS NEGLECTABLE 

151 CONTINUE 

IF (ABS(AM3-AM4).LE.0.010.AND.ABS((PT3-PT4)/PT3).LE.0.010) THEN JUMP = 4 
ELSE 
JUMP = 1 
END IF 
GO TO 160 


CHECK IF EXP. WAVE IS NEGLECTABLE 

152 CONTINUE 


IF (DFM23.LE..010.AND.DFA23.LE..0035 
ELSE 


.AND.DFP23.LE..015) THEN JUMP 


JUMP = 1 
END IF 
GOTO 160 


2 


CHECK IF SHOCK IS NEGLECTABLE 

153 CONTINUE 


IF (DFM 1 4.LE..0 1 0. AND.DFA 1 4.LE..0035. AND.DFP 14.LE..01 5 
THEN 


.AND.DFPT14 


.1 


JUMP = 3 
ELSE 
JUMP = 1 
END IF 


LE..010) 


160 CONTINUE 

GO TO (200,300,400,500) JUMP 


* 

LINE IS ADDED 
+ 


NL = NL+1 


♦ REGULAR PROCEDURE, SLIP 
200 CONTINUE 
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- UPPER EXPANSION WAVE 
TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 4 




* SLIP LINE 

TH(IMIN+1) = OMEGA 
ITLIN(IMIN+1) m 5 

* LOWER SHOCK 

TH(IMIN+2) = TH4+ALF1 
ITLIN(IMIN+2) = 1 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) =P3 

PT(IMIN) = PTOLD(IMIN-l) ALF(IMIN)= OMEGA 

* REGION 4 

AM(IMIN+1) = AM4 
P(IMIN+1) =P4 
PT(IMIN+1) = PT4 
ALF(IMIN+1)= OMEGA 
3333 

RETURN 1 




SMALL DIFFERENCES IN REGION 2 AND 3, REFLECTED EXP. WAVE IS 

* NEGLECTED 

* 

TTNUE 

* IF (LOUT) WRITE (19,995) 


300 CON- 


D = ABS(ALF2-ALF1) 

LSHANG = .TRUE. 

CALL SHANG (AM 1 ,D,G,LSHANG,TH4 J>4,PT4,AM4) 
TH4 = -TH4 


SLIP LINE 

TH(IMIN) = ALFOLD(IMIN-l) 
ITLIN(IMIN) = 5 


LOWER SHOCK 

TH(IMIN+1) = TH4+ALF1 
ITLIN(IMIN+1) = 1 

REGION 4 (REGION 3 REMAINS UNCHANGED) AMOMIN) = AM4 

P(IMIN) = POLD(IMIN-l) 

PT(IMIN) = PT4*PTOLD(IMIN+l) 

ALF(IMIN)= ALFOLD(IMIN- 1 ) 

RETURN 2 
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SMALL DIFFERENCES IN REGION 1 
* NEGLECTED 

+_ 

TINUE 


AND 4, REFLECTED SHOCK WAVE IS 


400 CON- 


* IF (LOUT) WRITE (19,995) 

D = ABS(ALF1-ALF2) 

CALL PM (AM2,D,G,AM3,TH3FW,TH3RW,TH3,P3) 

♦ UPPER EXP. WAVE 

TH(IMIN) = TH3+ALF2 
mJN(IMIN) = 4 


SLIP LINE 

TH(IMIN+1) = ALFOLD(IMIN+l) 
ITLIN(IMIN+1) = 5 

REGION 3 

AM(EMIN) = AM3 
P(IMIN) = POLD(IMIN+l) 
PT(IMIN) = PTOLD(IMIN-l) 
ALF(IMIN)= ALFOLD(IMIN+ 1 ) 

RETURN 2 






SMALL DIFFERENCES BETWEEN REGION 3 

+ 

TINUE 


AND 4, SUP LINE NEGLECTED 
500 CON- 


IF (LOUT) WRITE (19,996) 

- UPPER EXPANSION WAVE 
TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 4 

-LOWER SHOCK 
TH(IMIN+1) = TH4+ALF1 
ITLIN(IMIN+1) = 1 

- REGION 3 = REGION 4 
AM(IMIN) = (AM3+AM4)/2. . 
P(IMIN) =P3 

PT(IMIN) = PTOLD(IMIN-l) 
ALF(IMIN)= OMEGA 

RETURN 2 
END 


SUBROUTINE SESF (G,IMIN,NL,*) * 

— * SUBROUTINE ‘SESF CALCULATES THE FLOW 


CONDITIONS BEHIND TWO 
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* INTERSECTING OBLIQUE SHOCK- AND EXPANSION WAVES OF THE SAME 
FAMILY 

♦ 

* REGION 0 : ABOVE BOTH INCOMING WAVES 

* REGION 1 : IN BETWEEN THE INCOMING WAVES 

* REGION 2 : BELOW THE INCOMING WAVES 

* REGION 3,4: BEHIND THE RESULTING WAVES 


PARAMETER (NLMAX=20 1 ,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX)JTLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 

LOGICAL LSHANG.LPM.LOUT 

COMMON/INLTO/ AM,P,PTALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLD^OXOOLD,LOUT 


MAT (37HSHOC K/EXPAN SION, SAME FAMILIES ATX= ,F7.3) 
991 FORMAT (6HLINES ,I3,5H AND J3) 

IF (LOUT) THEN 

* WRITE (19,990) X0 
IMINPL = IMIN+1 

* WRITE (19,991) IMIN.IMINPL 
END IF 

PI = 3.141592654 

GO TO (100,200,100,200) ITLIN(IMIN) 


* 

♦ WAVES OF FAMILY I 

* 

100 CONTINUE 


AMO = AM(IMIN+1) 

ALF0 = ALF(IMIN+1) 

ALF2 = ALF(IMIN-l) 

* CALCULATE NEW FIELD 

IF ((ALF2-ALFO).LT.O.) THEN 
D = ABS(ALF2-ALF0) 

LSHANG = .TRUE. 

CALL SHANG (AM0,D,G,LSHANG,TH3 J>3,PT3,AM3) ELSE 
D = ALF2-ALF0 

CALL PM (AM0,D,GAM3,TH3FW,TH3RW,TH3,P3) PT3 = 1. 
END IF 


* ASSIGNING THE NEW LINES 
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SLIP LINE 


AND FIELDS 
* 

TH(IMIN) = ALF2 
niIN(IMIN) = 5 


RESULTING WAVE 

IF ((ALF2-ALFO).LT.O.) THEN 
TH(IMIN+1) = -TH3+ALF0 
ITLIN(IMIN+1) = 1 
ELSE 

TH(IMIN+1) = -TH3+ALF0 
ITLIN(IMIN+1) = 3 
END IF 

REGION 3 

AM(IMIN) = AM3 
P(IMIN) = POLD(IMIN-l) 
PT(IMIN) = PT3*PTOLD(IMIN+l) 
ALF(IMIN)= ALFOLD(IMIN-l) 

RETURN 1 


* WAVES OF FAMILY 0 


200 CONTINUE 
AMO = AM(IMIN-1) 

ALFO = ALF(IMIN-1) 

ALF2 = ALF(IMIN+1) 

* CALCULATE NEW F IELD 

IF ((ALF2-ALFO).GT.O.) THEN 
D = ALF2-ALF0 
LSHANG = .TRUE. 

CALL SHANG (AM0,D,G,LSHANG,TH3,P3,PT3,AM3) ELSE 
D = AB S( ALF2- ALFO) 

CALL PM (AM0,D,G^M3,TH3FW,TH3RW,TH3J>3) PT3= 1. 

r'XTTV TT' ' 


* ASSIGNING THE NEW LINES AND FIELDS * RESULTING WAVE 

IF ((ALF2-ALFO).GT.O.) THEN 
TH(IMIN) = TH3+ALF0 ITLIN(IMIN) = 2 

el s e 

TH(IMIN) = TH3+ALF0 ITLIN(IMIN) = 4 
END IF 

* SLIP LINE 

TH(IMIN+1) = ALF2 
ITLIN(IMIN+1) = 5 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) =POLD(IMIN+l) 

PT(IMIN) = PT3*PTOLD(IMIN-l) ALF(IMIN)= ALFOLD(IMIN+ 1 ) 
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* 

* 


RETURN 1 
END 


SUBROUTINE EEDF (GJMIN,NL,V,IPRINT) 
* 

LATES THE FLOW CONDITIONS BEHIND TWO 


* 

SUBROUTINE ‘EEDF’ CALCU- 


INTERSECTING EXPANSION WAVES OF DIFFERENT FAMILIES, 
* 


REGION 1: BEHIND LOWER FIRST EXPANSION WAVE 
REGION 2: BEHIND UPPER FIRST EXPANSION WAVE 
REGION 3: BEHIND UPPER SECOND EXPANSION WAVE 
REGION 4: BEHIND LOWER SECOND EXPANSION WAVE 


PARAMETER (NLMAX=20 1 ,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFM AX), 

1 ALF(NFMAX),ITLIN (NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JILOLD(NLMAX) 

LOGICAL LPMLOUT 

COMMON/INLTTV AM.P.PT ALF.TH.ITLIN, AMOLD,POLD,PTOLD, ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLD V XO^OOLD,LOUT 


♦ 

MAT (42HEXPANSION/EXPANSION, DIFF. FAMILIES ATX= ,F7 3) 
991 FORMAT (6HLINES ,I3,5H AND ,13) 

996 FORMAT (22HSLIP LINE IS NEGLECTED) 


-990FOR- 


IF (LOUT) THEN 
IF (IPRINT) 2,1,1 

IMINPL = IMIN+ 1 


2 IPRINT = 1 
END IF 


PI = 3.141592654 


* PROVIDE INITIAL VALUES 


ALF1 = ALF(IMIN-t-l) 

ALF2 = ALF(IMIN-l) 

ALFO = ALF(IMIN) 

AM1= AM(IMIN+1) 

AM2= AM(IMIN-l) 

FIRST GUESS FOR THE NEW FLOW ANGLE OMEGA 

OMEGA = ALF 1 +( ALF2- ALFO) 
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♦ CALCULATE MACH NUMBERS BEHIND SECOND EXPANSION WITH GUESSED 

OMEGA D3 = ABS(OMEGA-ALF2) 

CALL PM (AM2,D3,G t AM3,THZZ,TH2ZZ,TH4ZZ t PZZ) 

LPM = .FALSE. 

D4 = OMEGA-ALF1 

CALL PM (AM 1 ,D4,G AM4,THZZ,TH2ZZ,TH4Z4PZZ) 


* ITERATE THE NEW MACH NUMBERS AM3 AND AM4 

* (NEWTON’S METHOD) 


NTH = 1 
PI =P(IMIN+1) 

P2 = P(IMIN-l) 

GP = G+l. 

GM = G-1. 

GPM = GP/GM 
50 CONTINUE 
AM30LD = AM3 
AM40LD = AM4 
AMQ2 = AM2**2-1. 

AMQ3 = AM3**2-1. 

AMG2 = l.+GM/2.*AM2**2 
AMG3 = l.+GM/2.*AM3**2 
AMQ1 = AM1**2-1. 

AMQ4 = AM4**2-1. 

AMG1 = l.+GM/2.*AMl**2 
AMG4 = l.+GM/2.*AM4**2 

EVALUATE THE F-FUNCTION FF 

FF1 = (AMG3/AMG2)**(-G/GM) 

FF2 = (AMG4/AMG 1 )**(-G/GM) 

FF = FF1-P1/P2*FF2 


- EVALUATE THE G-FUNCTION GF 


GF1 = SQRT(GPM)*ATAN(SQRT(1./GPM*AMQ3))-ATAN(SQRT(AMQ3)) GF2 = 
SQRT(GPM)*ATAN(SQRT(1./GPM*AMQ2))-ATAN(SQRT(AMQ2)) GF3 
SQRT(GPM)*ATAN(SQRT(1./GPM*AMQ4))-ATAN(SQRT(AMQ4)) GF4 
SQRT(GPM)*ATAN(SQRT(17GPM*AMQ1))-ATAN(SQRT(AMQ1» GF = ALF2-GF14GF2- 


* EVALUATE THE DERIVATIVES 

FAM3 = -G*AM3*AMG2**(G/GM)*AMG3**(-G/GM-1.) 

FAM4 = P1/P2*G*AM4*AMG1**(G/GM)*AMG4**(-G/GM-1.) 

GAM3 = 1 7SQRT(AMQ3)*(1 7AM3- AM3/( 1 .+ 1 XJPM* AMQ3)) 
GAM4 = 1 7SQRT ( AMQ4)* ( 1 7AM4- AM4/( 1 .+ 1 ./GPM* AMQ4)) 

DETI = 1 y(FAM3*GAM4-FAM4*GAM3) 

* NEW VALUES FOR TH3, AM4 

AM3 = DETI*(-GAM4*FF+FAM4*GF)+AM30LD 
AM4 = DETI*(GAM3*FF-FAM3*GF)+AM40LD 
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IF ( AB S( AM3- AM3OLD).LT..000 1 . AND. AB S( AM4- AM40LD).LT.,000 1 ) THEN GO TO 100 

ELS NTH = NTH+1 

IF (NTH.GT.10) THEN 

WRITE (6 *) ‘ TOO MANY ITERATIONS’ GOTO 3333 
END IF 
GO TO 50 
END IF 

* NEW FLOW ANGLE OMEGA 

100 CONTINUE 
OMEGA3 = ALF2-GF1+GF2 
OMEGA4 = GF3-GF4+ALF1 

* FLOW CONDITIONS IN REGIONS 3 AND 4 OMEGA = (OMEGA3+OMEGA4V2. 

D3 = ABS(OMEGA-ALF2) 

CALL PM (AM2,D3,G,AM3,TH3FW,TH3RW,TH3 J>3) D4 = OMEGA- ALF1 
CALL PM (AM1,D4,G,AM4,TH4FW,TH4RW,TH4,P4) TH4 = -TH4 

* * ASSIGNING THE NEW LINES AND 

FIELDS 

* * CHECK IF SLIP LINE IS 

NEGLECT ABLE PT3 = PTOLD(IMIN-l) 

PT4 = PTOLD(IMIN+l) 

IF (ABS(AM3-AM4).LE.0.010.AND.ABS((PT3-PT4)/PT3).LE.0.010) THEN ISLIP = 1 
ELSE 

ISLIP = -l 
END IF 

IF (ISLIP) 200,200,300 


* REGULAR PROCEDURE, SLIP LINE IS ADDED 


200 CONTINUE 
NL = NL+1 


UPPER EXPANSION WAVE 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 4 


SLIP LINE 

TH(IMIN+1) = OMEGA 
ITLIN(IMIN+1) = 5 

LOWER EXPANSION WAVE 

TH(IMIN+2) = TH4+ALF1 
ITLIN(IMIN+2) = 3 

REGION 3 

AM(IMIN) = AM3 
P(IMIN) = P3*POLD(IMIN-l) 
PT(IMIN) = PTOLD(IMIN-l) 
ALF(IMIN)= OMEGA 
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♦ REGION 4 

AM(IMIN+1) = AM4 
P(IMIN+1) = P4*POLD(IMIN+l) 
PT(IMIN+1) = PTOLD(IMIN+l) 
ALF(IMIN+1)= OMEGA 
3333 

RETURN I 


♦ ; * 

m SMALL DIFFERENCES BETWEEN REGION 3 AND 4, SLIP LINE NEGLECTED 

TTNUE " “ " — 300 CON- 

* IF (LOUT) WRITE (19,996) 

* UPPER EXPANSION WAVE 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 4 

* LOWER EXPANSION WAVE 

TH(IMIN+1) = TH4+ALF1 
ITLIN(IMIN+1) = 3 

* REGION 3 = REGION 4 

AM(IMIN) = (AM3+AM4)/2. 

P(IMIN) = P3*POLD(IMIN-l) 

PT(IMIN) = (PT3+PT4)/2. 

ALF(IMIN)= OMEGA 

RETURN 2 
END 


SUBROUTINE EESF (G,IMIN,NL ,*) *- 

' * SUBROUTINE *EESF* CALCULATES THE FLOW 


CONDITIONS BEHIND TWO 

* INTERSECTING EXPANSION WAVES OF THE SAME FAMILY 

* 

* 

* 

♦ 


REGION 0 : ‘UNDISTURBED' FLOW 

REGION 1 : BEHIND FIRST INCOMING EXPANSION 

REGION 2 : BEHIND SECOND INCOMING EXPANSION 


* wa^isassumS) 0VER EXPANSI0N: 0NLY one Resulting EXPANSION 


PARAMETER (NLMAX=201,NFMAX=200) 


DftffiNSIWIYLXtt^(WL^OQ^HM-^^^lAX)^40UD^^^AX),POLD(NFMAX), 


LOGICAL LPM.LOUT 
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COMMON /INLTO/ AM,P,PT,ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD 
1 THOLD,ITLOLD,YL,YLOLD r XO r XOOLD,LOUT 


MAT (4 1 HEXP ANSION/EXPANSION, SAME FAMILIES ATX= ,F7 3) 
991 FORMAT (6HLINES ,13 ,5H AND J3) 

IF (LOUT) THEN 

* WRITE (19,990) X0 
IMINPL = IMIN+1 

♦ WRITE (19,991) IMINJMINPL 
END IF 


PI = 3.141592654 

GO TO (100,200,100,200) ITLIN(IMIN) 


* WAVES OF FAMILY 1 


100 CONTINUE 

: * CALCULATE THE RESULTING WAVE 

AMO = AM (IMIN+1) 

ALF0 = ALF0MIN+1) 

ALF2 = ALF(IMIN-l) 

D = ALF2-ALF0 

CALL PM (AM0,D,G,AM3,TH3FW,TH3RW,TH3,P3) 

RESULTING EXPANSION WAVE 

NL = NL-1 

TH(IMIN) = -TH3+ALF0 
ITLIN(IMIN) = 3 

RETURN 1 


* WAVES OF FAMILY 2 


200 CONTINUE 

CALCULATE THE RESULTING WAVE 

AMO = AM(IMIN-1) 

ALF0 = ALF(IMIN-l) 

ALF2 = ALF(IMIN+1) 

D = ABS(ALF2-ALF0) 

CALL PM (AM0,D,G,AM3,TH3FW,TH3RW,TH3,P3) 

RESULTING EXPANSION WAVE 

NL = NL-1 

TH(IMIN) = TH3+ALF0 
ITLIN(IMIN) = 4 


RETURN 1 
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END 

♦ 

* 


SUBROUTINE SRSPA (GJMIN,NL,V) 

* 


SUBROUTINE ‘SRSPA’ CALCULATES 


THE FLOW CONDITIONS BEHIND THE 

REFLECTION OF A SHOCK OF FAMILY 2 AT A SUP LINE 
RESULTING FLOWFIELD IS SIMILAR TO THE INTERSECTION OF SHOCK AND 
EXPANSION WAVES OF DIFFERENT FAMILIES SO THAT THE SUBROUTINE 
‘SEDFA’CANBEUSED 
CASE A: SHOCK OF FAMILY 2 


♦ REGION 1 : BEHIND INCOMING SHOCK 

♦ REGION 2: BEHIND SUP LINE 

♦ REGION 3: BEHIND CREATED SECOND SHOCK 

♦ REGION 4: BEHIND REFLECTED EXPANSION WAVE 

♦ * _ __ 

PARAMETER (NLMAX=201 ,NFMAX=200) 


DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 

LOGICAL LOUT 


COMMON/INLTO/AM,P,PTALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 
1 THOLD,ITLOLD,YL,YLOLD,XO,XOOLD,LOUT 


990 FORMAT (44HSHOCK REFLECTION AT SLIP LINE, CASE A AT X= ,F7.3) 
991 FORMAT (6HLINES ,I3,5H AND J3) 

IF (LOUT) THEN 

* WRITE (19,990) X0 
IMINPL = IMIN+1 

* WRITE (19,991) IMINJMINPL 
END IF 


IPRINT = -1 
JUSE = 2 

CALL SEDFA (GJMIN,NL,M00,*200, IPRINT JUSE) 

100 CONTINUE 
RETURN 1 

200 CONTINUE 
RETURN 2 
END 


SUBROUTINE SRSPB (GJMIN.NL,*,*) * 


+ 

THE FLOW CONDITIONS BEHIND THE 


SUBROUTINE ‘SRSPB’ CALCULATES 
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0 REFLECTION OF A SHOCK OF FAMILY 1 AT A SLIP LINE 

* RESULTING FLOWFTELD IS SIM ILAR TO THE INTERSECTION OF SHOCK AND 

* EXPANSION WAVES OF DIFFERENT FAMILIES SO THAT THE SUBROUTINE 

* ‘SEDFB’ CAN BE USED 

* CASE B: SHOCK OF FAMILY 1 

* 

* REGION 1 : BEHIND SUP LINE 

* REGION 2: BEHIND INCOMING SHOCK 

* REGION 3: BEHIND REFLECTED EXPANSION WAVE 

* REGION 4: BEHIND CREATED SECOND SHOCK 

PARAMETER (NLMAX=20 1 ,NFMAX=200) 


DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),FT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX),ITLOLD(NLMAX) 


LOGICAL LOUT 


COMMON/INLTO/ AM,P,PT,ALF,TH,ITLIN,AMOLD t POLD,PTOLD,ALFOLD 
1 THOLD,ITLOLD,YL,YLOLD,XO,XOOLD,LOUT 


MAT (44HSHOCK REFLECTION AT SLIP LINE, CASE B AT X= ,F7.3) 991 FORMAT 
(6HLINES ,I3,5H AND ,13) 

IF (LOUT) THEN 

* WRITE (19,990) X0 
IMINPL = IMIN+1 

* WRITE (19,991) IMINJMINPL 
END IF 

PRINT = -1 
JUSE = 2 

CALL SEDFB (G,IMIN,NL,* 100, *200 JPRINT JUSE) 

100 CONTINUE 
RETURN 1 

200 CONTINUE 
RETURN 2 
END 


SUBROUTINE SRW (G,IMIN,NL,*) * 

* SUBROUTINE ‘SRW’ CALCULATES THE FLOW 


CONDITIONS BEHIND THE 

REFLECTION OF A SHOCK AT A SOLID WALL 


REGION 1: IN FRONT OF INCOMING SHOCK 

REGION 2: BEHIND INCOMING SHOCK/IN FRONT OF REFLECTED SHOCK 
REGION 3: BEHIND REFLECTED SHOCK 


173 


PARAMETER (NLMAX=20 1 r NFMAX=200) 


DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 

LOGICAL LSHANG.LOUT 

COMMON/INLTO/ AMJ > ,PT t ALF,TH,ITLIN,AMOLDJ > OLD4PTOLD,ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLD^O^OOLD,LOUT 


+ 

FORMAT(33HSHOCK/SHOCK, SAME FAMILIES ATX= ,F7.3) 
991 FORMAT (6HLINES J3,5H AND J3) 


990 


IF (LOUD THEN 
WRITE (19,990) X0 
IMINPL = IMIN+1 
WRITE (19,991) IMINJMINPL 
END IF 


PI = 3.141592654 

GO TO ( 1 00, 1 00,50,50,50,200) ITLIN(IMIN) 

50 CONTINUE 

WRITE (19,*) ‘ERROR! SHOCK REFLECTION AT WALL WITH’ 
WRITE (19,*) *TYPE(1)= ‘,ITLIN(IMIN),’ TYPE(2)= \ITLIN(IMIN+1) 
GOTO 3333 


♦ SHOCK IS ABOVE WALL 


100 CONTINUE 

AM2 = AM(IMIN-1) 

ALF1 = ALF(IMIN) 

ALF2 = ALF(IMIN-l) 

* CALCULATE THE NEW FIELD 

D = ALF1-ALF2 
LSHANG = .TRUE. 

CALL SHANG (AM2,D,G,LSHANG,TH3,P3,PT3,AM3) 

* ASSIGN NEW LINES AND FIELDS * REFLECTED SHOCK 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 2 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) = P3*POLD(IMIN-l) 

PT(IMIN) = PT3*PTOLD(IMEN-l) ALF(IMIN) = ALFOLD(IMIN) 

RETURN 1 
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* SHOCK IS BELOW WALL 


200 CONTINUE 

AM2 = AMOMIN+1) 

ALF1 = ALF(IMIN) 

ALF2 = ALF(IMIN+1) 

* CALCULATE THE NEW FIELD 

D = ABS(ALF1-ALF2) 

LSHANG = .TRUE. 

CALL SHANG (AM2 ,D,G,LSHANG,TH3,P3,PT3,AM3) TH3 = -TH3 

* ASSIGN NEW LINES AND FIELDS * REFLECTED SHOCK 

TH(IMIN+1) = TH3+ALF2 
ITLIN(IMIN+1) = 1 

* REGION 3 

AM(IMIN) = AM3 
P(IMIN) = P3*POLD(IMIN+l) 

PT(IMIN) = PT3*PTOLD(IMIN+l) 

ALF(IMIN) = ALFOLD(IMIN) 

3333 

RETURN 1 
END 


SUBROUTINE ERSPA (G,IMIN,NL,*,*) * 

* SUBROUTINE ‘ERSPA’ CALCULATES 

THE FLOW CONDITIONS BEHIND THE 

* REFLECTION OF AN EXPANSION WAVE OF FAMILY 2 AT A SLIP LINE 

* RESULTING FLOWFIELD IS SIMILAR TO THE INTERSECTION OF SHOCK AND 

* EXPANSION WAVES OF DIFFERENT FAMILIES SO THAT THE SUBROUTINE 

* ‘SEDFB’ CAN BE USED 

* CASE A: EXPANSION WAVE OF FAMILY 2 

* 

* REGION 1 : BEHIND INCOMING EXPANSION WAVE 

* REGION 2: BEHIND SLIP LINE 

* REGION 3: BEHIND CREARTED EXPANSION WAVE 

* REGION 4: BEHIND REFLECTED SHOCK 


PARAMETER (NLMAX=20 1 ,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFMAX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX),ITLOLD(NLMAX) 

LOGICAL LOUT 

COMMON/INLTO/ AMJ\PT ALF,TH,mJN,AMOLD,POLD,PTOLD, ALFOLD, 

1 THOLDJTLOLD,YL,YLOLD,XO,XOOLD,LOUT 


♦ -990 FOR- 

MAT (48HEXP. WAVE REFLECTION AT SLIP LINE, CASE A AT X= ,F7.3) 991 FORMAT 
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(6HLINES J3,5H AND ,13) 


IF (LOUT) THEN 
WRITE (19,990) XO 
IMINPL = IMIN+1 
WRITE (19,991) IMINJMINPL 
END IF 

IPRINT = - 1 
JUSE = 3 

CALL SEDFB (G.IMIN.NL* 100,*200JPRINT,JUSE) 

100 CONTINUE 
RETURN 1 

200 CONTINUE 
RETURN 2 
END 


SUBROUTINE ERSPB (GJMIN.NL ,*,*) * — 

* SUBROUTINE ‘ERSPB’ CALCULATES 

THE FLOW CONDITIONS BEHIND THE 

* REFLECTION OF AA EXPANSION WAVE OF FAMILY 1 AT A SUP LINE 

* RESULTING FLOWFIELD IS SIMILAR TO THE INTERSECTION OF SHOCK AND 

* EXPANSION WAVES OF DIFFERENT FAMILIES SO THAT THE SUBROUTINE 

* ‘SEDFA’ CAN BE USED 

* CASE B : EXPANSION WAVE OF FAMILY 1 

* REGION 1 : BEHIND SLIP LINE 

* REGION 2: BEHIND INCOMING EXPANSION WAVE 

* REGION 3: BEHIND REFLECTED SHOCK 

* REGION 4: BEHIND CREATED SECOND EXPANSION WAVE 


PARAMETER (NLMAX=201,NFMAX=200) 

DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFM AX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX), 
1 PTOLD(NFMAX),ALFOLD(NFMAX),ITLOLD(NLMAX) 

LOGICAL LOUT 

COMMON/INLTO/ AM,P,PT,ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD, 

1 THOLD,ITLOLD,YL,YLOLDX0X0OLDaX>UT 


— wuruK- 

MAT (48HEXP. WAVE REFLECTION AT SLIP LINE, CASE B AT X= ,F7.3) 991 FORMAT 
(6HLDMES ,13, 5H AND ,13) 


IF (LOUT) THEN 
WRITE (19,990) X0 
IMINPL = IMIN+1 
WRITE (19,991) IMINJMINPL 
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END IF 


IPRINT = - 1 
JUSE = 3 

CALL SEDFA (GJMIN,NL,* 100, *200, IPRINT JUSE) 

100 CONTINUE 
RETURN 1 

200 CONTINUE 
RETURN 2 
END 


SUBROUTINE ERW (GJMIN,NL,*) 

* — — * 

SUBROUTINE ‘ERW’ CALCULATES THE FLOW CONDITIONS BEHIND THE 

* REFLECTION OF AN EXPANSION WAVE AT A SOLID WALL 

* REGION 1 : IN FRONT OF INCOMING EXPANSION WAVE 

* REGION 2: BEHIND INCOMING EXPANSION WAVE/IN FRONT OF REFLECTED 

* EXPANSION WAVE 

* REGION 3: BEHIND REFLECTED EXPANSION WAVE 
PARAMETER (NLMAX=201,NFMAX=200) 


DIMENSION YL(NLMAX),TH(NLMAX),AM(NFMAX),P(NFMAX),PT(NFM AX), 

1 ALF(NFMAX),ITLIN(NLMAX) 

DIMENSION YLOLD(NLMAX),THOLD(NLMAX),AMOLD(NFMAX),POLD(NFMAX) 
1 PTOLD(NFMAX),ALFOLD(NFMAX)JTLOLD(NLMAX) 


LOGICAL LPMXOUT 


COMMON/INLTO/ AM,P,PT,ALF,TH,ITLIN,AMOLD,POLD,PTOLD,ALFOLD 
1 THOLD,ITLOLD,YL,YLOLDJCOJCOOLD,LOUT 


MAT (35HEXP. WAVE REFLECTION AT WALL AT X= ,F7 3) 
991 FORMAT (6HLINES ,I3,5H AND J3) 


-990 FOR- 


* 

* 


* 

* 


IF (LOUD THEN 
WRITE (19,990) X0 
IMINPL = IMIN+1 
WRITE (19,991) IMINJMINPL 
END IF 

PI = 3.141592654 

GO TO (50,50,100,100,50,200) ITLIN(IMIN) 

50 CONTINUE 

WRITE (19,*) ‘ERROR! EXP. WAVE REFLECTION AT WALL WITH’ 
GOTO3333’ *) ,TYPE(1)= *’ ITLIN ( IMIN ).’ TYPE(2)= \ITLIN(IMIN+1) 
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* EXPANSION WAVE IS ABOVE WALL 


100 CONTINUE 

AM2 = AM(IMIN-1) 

ALF1 = ALF(IMIN) 

ALF2 = ALF(IMIN-l) 

* CALCULATE THE NEW FIELD 

D = ABS (ALF1-ALF2) 

CALL PM (AM2,D,G,AM3,TH3FW,TH3RW,TH3,P3) 

* ASSIGN NEW LINES AND FIELDS * REFLECTED EXPANSION WAVE 

TH(IMIN) = TH3+ALF2 
ITLIN(IMIN) = 4 


-REGION 3 
AM(IMIN) = AM3 
P(IMIN) = P3+POLD(IMIN-l) 
PT(IMIN) = PTOLD(IMIN-l) 
ALF(IMIN) = ALFOLD(IMIN) 

RETURN 1 


* — * EXPANSION WAVE IS BELOW WALL 

* —200 CONTINUE 

AM2 = AM(IMIN+1) 

ALF1 = ALF(IMIN) 

ALF2 = ALF(IMIN+1) 

* CALCULATE THE NEW FIELD 

D = ABS(ALF1-ALF2) 

CALL PM (AM2,D,G,AM3,TH3FW,TH3RW,TH3,P3) TH3 = -TH3 

* ASSIGN NEW LINES AND FIELDS * REFLECTED EXPANSION WAVE 

TH(IMIN+1) = TH3+ALF2 
ITLIN(IMIN+1) = 3 

* REGION 3 

AM(IMIN) = AM3 

P(IMIN) = P3*POLD(IMIN+l) 

PT(IMIN) = PTOLD(IMIN+l) 

ALF(TMIN) = ALFOLD(IMIN) 

3333 

RETURN 1 
END 


SUBROUTINE SHANG (AM 1 ,D,G,LSHANG,TH,PR,PTR,AMY) * 

— * SUBROUTINE 


SHANG 


FINDS THE SHOCK ANGLE FOR A GIVEN FREESTREAM 

* MACH NUMBER, WEDGE ANGLE AND GIVEN RATIO OF SPECIFIC HEATS 

* THE FLOW CONDITIONS BEHIND THE SHOCK ARE ALSO COMPUTED (OPTION) 

* SUBROUTINE BY BOB ROACH, GEORGIA INSTITUTE OF TECHNOLOGY 


178 


INPUT 

AM 1 = UPTREAM MACH NUMBER 

D = WEDGE ANGLE (RAD) 

G = RATIO OF SPECIFIC HEATS 

LSHANG » TRUE: ADDITIONAL COMPUTATION OF POST SHOCK VALUES 
OUTPUT 

TH = SHOCK WAVE ANGLE (RAD) 

PR = PRESSURE (NON-DIMENSIONAL) 

R = DENSITY ( “ ) 

T = TEMPERATURE ( “ ) 

PTR = TOTAL PRESSURE ( “ ) 

AMY = MACH NUMBER BEHIND SHOCK 


LSHANG 

CALL InitBeachBall(512) 
CALL ShowBeachBall 


LOGICAL 


CHECK MACH NUMBER 

IF(AM1.LT.1.)THEN 

WRITE (19 *) ‘ INPUT MACH NUMBER TO SHANG SUBSONIC !’ 
WRITE (19,*) * PLEASE CHECK AGAIN !’ 

WRITE (9,*) 4 RETURNING TO MAIN PROGRAM ’ 

RETURN 
GOTO 3333 
END IF 


PI =3.141592654 
GP = G + 1. 

GM = G - 1. 

AM2 = AM1**2 
CD = 1VTAN(D) 


CHECK TO SEE IF DELTA > DELTAMAX 

GSTF = GP* AM2 

CC = (GSTF-4.+SQRT(GP*(AM2*(GSTF+8.*GM)+16.)))/(4.*G*AM2) 

THMAX = ASIN(SQRT(CC)) 

STM2 = (SIN(THMAX))**2 

DMAX = ATAN2( 1 .,(TAN(THMAX)*(.5*GSTF/(AM2*STM2- 1 .V 1 .))) 

DMAXD= 180.*DMAX/PI 


IF (D.GT.DMAX) THEN 

WRITE (6,*) 4 IN SHANG...’ 

WRITE (6,*) 4 WEDGE ANGLE TOO LARGE FOR MACH NUMBER’ WRITE (6 *) 4 
DELTAMAX= ‘JDMAXD,’ FOR M= \AM1 WRITE (6,*) 4 FOR THE GIVEN DELTA. THETA 
= 90 DEG.’ WRITE (6,*) 4 FLOW BECOMES SUBSOMC !’ ’ 

GOTO 3333 
END IF 


FIRST GUESS: PARABOLIC CURVE FIT TO FUNCTION 

AMI = IV AMI 

SIG = ATAN2(AMI,SQRT(1.-AMI**2)) 

DL = THMAX-SIG 
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DL2 = DL*(THMAX+SIG) 

AA * DMAX/(DL2-2.*DL*THMAX) 

BB = 2. *DMAX *THMAX/(2. *DL*THMAX-DL2) 

CC = -(AA*SIG+BB)*SIG 

TH = .5*(-BB+SQRT (BB * *2-4.* AA*(CC-D)))/AA 

* NEWTON ITERATE FOR THETA 

NTH =1 
100 CONTINUE 
TH1 =TH 
ST = SIN(TH) 

ST2 = ST* *2 
CT = COSCTH) 

TT = ST/CT 
SC2 = 1VCT**2 
STF = AM2*ST2-1. 

STF2 = ,5*GSTF/STF-1. 

F = TT*STF2-CD 

FP = SC2*STF2-ST2*(AM2*GSTF/STF**2) 

TH = TH1-F/FP 

IF (ABS(TH-TH1).LT..001) GO TO 200 
NTH = NTH + 1 
IF (NTHETA.GE.20) THEN 

WRITE (6,*) 4 TOO MANY ITERATIONS IN SHANG’ GOTO 3333 
ELSE 

GOTO 100 
END IF 

CALL SpinBeachBall(l) 

200 CONTINUE 

IF (LSHANG) GO TO 300 
RETURN 

* COMPUTE POST-SHOCK VALUES 

300 CONTINUE 

AMN2 a= (AM1*SIN(TH))**2 

PR = (2 *G*AMN2 - GM)/GP 

PT1 = (GP*AMN2/(GM*AMN2 + 2.))**(G/GM) 

PT2 = (GP/(2. *G* AMN2 - GM))**(17GM) 

PTR = PT1*PT2 

CALL SpinBeachBall(l) 

AMNUM = (GP* AM 1)**2*AMN2 - 4.*(AMN2 - l.)*(G*AMN2 + 1.) 
AMDEN = (2.*G*AMN2 - GM)*(GM*AMN2 + 2.) 

AMY = SQRT(AMNUM/AMDEN) 

CALL SpinBeachBall(l) 

* ALL DONE 

3333 

RETURN 

CALL RelBeachBall 


END 


180 



♦ 

♦ 


SUBROUTINE PM (AM 1 ,D,G,AMNY,THFW,THRW,TH,PN) * 

PUTES THE MACH NUMBER DOWNSTREAM OF AN ISENTR(OTC° UTINE PM COM ' 

* TURN OF DELTA USING THE PRANDTL-MEYER FUNCTION 

* PRESSURE BEHIND THE EXPANSION AND FORWARD AND REARWARD MACHLINE 

* OF THE FAN ARE ALSO COMPUTED (OPTION) 

* SUBROUTINE BY BOB ROACH, GEORGIA INSTITUTE OF TECHNOLOGY 


♦ INPUT 

♦ AMI = MACH NUMBER OF INCOMING AIRFLOW 

♦ D = TURNING ANGLE (RAD) 

♦ G = RATIO OF SPECIFIC HEATS 

♦ LPM = TRUE: COMPUTATION OF POST EXPANSION VALUES 


* OUTPUT: 

* AM NY = MACH NUMBER BEHIND EXPANSION 

* THFW = ANGLE OF FORWARD MACHLINE (RAD) 

* THRW = ANGLE OF REARWARD MACHLINE (RAD) 

* TH = ANGLE OF AVERAGE MACHLINE (RAD) 

* ^ PN = STATIC PRESSURE (NON-DIMENSIONAL) 

LOGICAL LPM 

CALL InitBeachBall(5 12) 

CALL ShowBeachBall 


PI =3.141592654 
GP = G+1. 

GM = G-1. 

GR = GP/GM 


*— COMPUTE PM-FUNCHON FOR INCOMING AIRFLOW S 1 = SQRT( 1 7GR+( AM 1 * * 2 - 

S2 = SQRT(AM1**2-1.) 

ANU = SQRT (GR)* ATAN(S 1 )- ATAN(S2) 

* NEW TURNING ANGLE 

DST = D+ANU 


* FIRST GUESS - RATIONAL FUNCTION FIT AAA = .5+PI*(SQRT(GR)- 1 ) 

AMN1 = 17(1 .-(DST/AAA)**( 1 7GP)) V W } 

* NEWTON ITERATION 

NAMN = 1 
100 CONTINUE 
NAMN = NAMN+1 
AMNL = AMN1 

CALL SpinBeachBall(l) 


PGF = SQRT(AMN1**2-1.) 

= SQRT (GR)* ATAN2(PGF,SQRT(GR))- ATAN(PGF)-DST 
FP = (AMN1/(1.+PGF**2/GR)-17AMN1)/PGF 
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AMN1 = AMN1-F/FP 

CALL SpinBeachBall(l) 

IF (ABS(AMNL-AMN1).LT..001) GO TO 200 
IF (NAMN.GE.20) THEN 
WRITE (6,*) ‘TOO MANY ITERATIONS IN PM’ 
GOTO 3333 
ELSE 

GO TO 100 
END IF 

CALL SpinBeachBall(l) 

200 CONTINUE 
AMNY = AMN1 


* COMPUTE POST EXPANSION VALUES 

PN = ((1.4GM/2.*AMNY**2)/(1.4GM/2.*AM1**2))**(-G/GM) THFW = ASIN(UAMl) 
THRW = ASIN(17AMNY)-D 
TH = (THFW+THRW)/2. 


3333 


ALL DONE 

CALL RelBeachBall 


RETURN 


END 

+ 

* 

SUBROUTINE MSUP(AR,G,AM) * 

* 

* This subroutine is used to compute the supersonic 

* Mach number corresponding to a given input area 

* ratio, A/A* (AR), and ratio of specific heats (G). 
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SUBROUTINE RAYLEIGH(N,AM3J > 03,T03,F,ER,AM44 J 04,T04,T4,P4) 


* 


This subroutine computes the combustion zone heat addition in the 
scram jet attitude sensitivity program. Flow properties from the 
exit of the diffuser are passed from the INLET subroutine 
as well as the minimum allowed combustor outflow Mach number. 

If the desired Mach number results in a combustor temperature that 
is higher than that allowable, the exit Mach number and fuel flow rate 
are adjusted to limit the system temperature to a specified maximum value. 
No limit is placed on equivalence ratio. Approximate corrections are made 
to the gas properties to take account of fuel rich operation when the 
minimum specified equivalence ratio is higher than that computed in the 
algorithm. 

Variables: 

AM3 combustor inflow Mach number 
T03 combustor inflow stagnation temperature 
P03 combustor inflow stagnation pressure 
AM4 combustor outflow Mach number 
T04 combustor outflow stagnation temperature 
P04 combustor outflow stagnation pressure 
F fuel/air mass flow rate ratio 
FCRJT critical (stoichiometric) fuel/air ratio 
ETAB combustor thermodynamic efficiency 

ER equivalence ratio specified in input 
QR fuel heating value 

(for H2 = 51600 BTU/#m = 1.2927E+9 ft-#f/slug) 

G1 ratio of specific heats for air 

G2 ratio of specific heats for the fuel/air mixture 

RG gas constant for air 


COMMON/CMBST/ G2,RG2,CP2,G2M,G2P,QRJSTAB,FCRIT 
COMMON/GASPR/ G.RG.GM.GP.CP 
KOUNTER = 0 

' DATA 

TMAX = 5500. 

FGIVEN = ER*FCRIT 
AM4 = 1.15 
G1 =G 
RG1 = RG 
G1M = G1 - 1. 

G1P = G1 + 1. 

CP1=G1*RG1/G1M 

100 CONTINUE 

KOUNTER = KOUNTER +1 
G2M = G2 - 1. 

G2P = G2 + 1. 

CP2 = G2*RG2 / G2M 
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T3 = T03/(1.+ .5*G2M*AM3**2) 

P3 = P03/(l.+ .5*G2M*AM3**2)**(G2/G2M) 

* RAYLEIGH LINE HEAT ADDITION: 

RS 1 =( 1 .+G2* AM3**2)/( 1 +G2* AM4* *2) 

RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*G2M*AM4**2)/(1.+ 0.5*G2M*AM3**2) 

T4 = T3*(RS1**2)*RS2 

P4 — P3*RS i 

P04 = P03*RS 1 *RS3**(G2/(G2-1 .)) 

T04 = T03*(RSl**2)*RS2*Rs3 
FMAX = (T04 - T03 )/(ET AB * QR/CP2 - T04) 

* WRITE(6,*) ‘PASS ‘.KOUNTER 

* WRITE(6,*) ‘M4 =’,AM4,’T4 =\T4,’T04 =\T04 

* WRITE(6,*) ‘Emax =’,FMAX/FCRIT 

* WRITE(6,*) ‘ ‘ 

IF (FMAX.GT.FCRIT) THEN 

* WRITE(6,*),’ Adjust the Exit Mach Number’ 

* WRITE(6*), * for allowable energy input’ 

FMAX = FCRIT 

T04 = (T03 + FMAX*ETAB*QR/CP2)/(1. + FMAX) 

101 CONTINUE 

RS 1 =( 1 .+G2*AM3**2)/( 1 +G2* AM4**2) 
RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*G2M*AM4**2)/(1.+ 0.5*G2M*AM3**2) 

51 = RS1*RS1*RS2*RS3 - T04/T03 

52 = G2M*AM4/(1.+ 0.5*G2M*AM4*+2) 

S2 = S2 + 27AM4 - 4*G2*AM4/(1.+ G2+AM4++2) 

S2 = RS1*RS1*RS2*RS3*S2 
DAM = - S1/S2 

‘ write(6,*) AM4.DAM 

AM4 = AM4 + DAM 
IF (ABS(DAM).GT..000001) GO TO 101 
T4 = T3*(RS1**2)*RS2 
P4 = P3*RS1 

P04 = P03*RS1*RS3**(G2/(G2-1.)) 

WRITE(6,*) ‘M4 =\AM4,’T4 =\T4,’T04 =\T04 
1 WRITE(6,*) ‘Emax =’,FMAX/FCRIT 

‘ WRITER,*) ‘ ‘ , 

END IF 

Check Exit Temperature: 

102 CONTINUE 

IF(T4.LT.TMAX) GOTO 120 
IF(T4.GT.TMAX) THEN 

WRITE(6,*) ‘Exceeded Max Temp :Adjusting Mach Number’ 
GOTO 103 
END IF 

103 CONTINUE 
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RS 1 =( 1 .+G2* AM3* *2)/( 1 +G2* AM4**2) 
RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*(G2-1.)*AM4**2)/(1.+ 0.5*(G2-1.)*AM3**2) 
T04 = T03*(RS1**2)*RS2*RS3 
T4 = T3*(RS 1 **2)*RS2 
FX1 =T4-TMAX 

FX2 = T4*2.*( 1 ./AM4-2.*G2* AM4/( 1 .+G2* AM4* *2)) 
DAM = - FX1/FX2 
write(6,*) T4,AM4,DAM 
AM4=AM4+DAM 

IF (ABS(DAM).GT..OOOOO 1 ) GO TO 103 
110 CONTINUE 

RS 1 =( 1 .+G2* AM3* *2)/( 1 +G2* AM4* *2) 

RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*(G2- 1 .)* AM4**2)/( 1 .+ 0.5*(G2-1.)*AM3**2) 

T4 = T3*(RS1**2)*RS2 
P4 = P3*RS1 

P04 = P03*RS1*RS3**(G2/(G2-1.)) 

T04 = T03*(RS 1 **2)*RS2*Rs3 
FMAX = (T04 - T03 )/(ET AB * QR/CP2 - T04) 

WRITE(6,*) ‘M4 =\AM4 
WRITE(6,*) *T4 =\T4,’T04 =\T04 
WRJTE(6,*) ‘Emax =’,FMAX/FCRIT 
WRITE(6 ,*) 4 4 


120 CONTINUE 

F = FMAX 

IF (F.LT.FGIVEN) THEN 

* WRITE(6,*) ‘Excess Hydrogen, adjust mixture properties:’ 

MWEIGHT=17((1.- FGIVEN)/28.97 + FGIVEN/2.016) 
RG2 = 1545.43*32. 17/MWEIGHT 
IF (KOUNTER.EQ. 1) GOTO 100 
GOTO 122 
END IF 

IF (F.GT.FGIVEN) THEN 

* WR i ifc (6,*) ‘Less fuel flow than can be accommodated,’ 

* WRTTE(6,*) ‘adjust exit Mach number’ 

F = FGIVEN 

FMAX = FCRIT 

T04 = (T03 + F*ETAB *QR/CP2)/( 1 . + F) 

121 CONTINUE 

RS 1 ={ 1 .+G2* AM3 * *2)/( 1 +G2* AM4* *2) 
RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*G2M*AM4**2)/(1.+ 0.5*G2M*AM3**2) 

5 1 = RS 1 *RS 1 *RS2*RS3 - T04/T03 

52 = G2M*AM4/(1.+ 0.5*G2M*AM4**2) 

S2 = S2 + 27AM4 - 4*G2*AM4/(1.+ G2*AM4**2) 

S2 = RS 1 *RS 1 *RS2*RS3*S2 
DAM = - S1/S2 

" write(6,*) AM4.DAM 
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AM4 = AM4 + DAM 
IF (ABS(DAM).GT..000001) GO TO 121 
122 CONTINUE 

RS 1 =( 1 .+G2* AM3 * *2)/( 1 +G2* AM4* *2) 
RS2=(AM4/AM3)**2 

RS3=(1.+ 0.5*G2M* AM4* *2)/( 1.+ 0.5*G2M*AM3**2) 
T04 = T03*(RS 1 * *2)*RS2*Rs3 
FMAX = (T04 - T03)/(ETAB*QR/CP2 - TIM) 

T4 = T3*(RS1**2)*RS2 
P4 = P3*RS1 

P04 = P03*RS1*RS3**(G2/(G2-1.)) 

END IF 

‘ WRTIE(6,*) ‘Final Output’ 

‘ WRITE(6,*) ‘M4 = ‘AM4/T4 = \T4,’ER = ‘FMAX/FCRIT 


♦ 

RETURN 

END 

+ 

* 
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GM = G- 1. 
GP = G + 1. 


+ ♦. 


* INITIAL GUESS FOR AM 

AM = SQRT((GP/GM)**GP * AR**GM) 

* FIXED POINT ITERATION FOR AM 

KI =0 

100 KI = KI + 1 
AML = AM 

AM = SQRT((GP*(AR*AM)**(2.*GM/GP) - 2.)/GM)IF(ABS(AM-AML).GT.l.E-6)GOTO 
100 

* CONVERGED 

RETURN 

END 


SUBROUTINE MOCA(Kicker) * 


* This subroutine computes the flow between an axisymmetric 

* or 2D solid body and a shock. Initial conditions are those 

* of the exhaust of a SCRAMjet with Mach number near unity. 

* Frees tre am conditions are those downstream of the expansion 

* from the cowl lip of the engine. 


PARAMETER (IM=50UM=15) 

COMMON/CBSPA/ AAX(IM),BAX(IM),CAX(IM),AAY(IM),BAY(IM),CAY(IM), 1 
AAC(IM),BAC(IM),CAC(IM),NPA 
COMMON/DEPVR/ RHO(IM,JM),VT(IM,JM),T(IM,JM),P(IM,JM), 

1 TH(IM,JM),AM(IM,JM),WS(IM),H0(IM,JM),P0(IM,JM) 

COMMON/GASPR/ G,RG,GM,GP,CP 
COMMON/GRIDS/ X(IM),Y(IM,JM) 

COMMON/GRIDF/ XF(IM),YF(IM),CF(IM),ILF 
COMMON/GRIDA/ XA(IM),YA(IM),CA(IM),ILA 
COMMON/INFTY/ AMINF,PINF,TINF,ALPHA 

DIMENSION W(JM) 

CHARACTER* 1 ZZZ 

* USEFUL STUFF 

PI =3.141592654 
CAL = COS(ALPHA) 

Kicker = 0 
JSL = JM - 2 
JSS = JSL + 1 

T0INF = TTNF*(1. + .5*GM*AMINF**2) 

H0INF = CP*T0INF 
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RHINF = PINF/(RG*TINF) 

VDMF = AMINF*SQRT(G*RG*TTNF) 


MAIN LOOP 


OPEN(2JTLE= , moca.dat , ,STATUS= , UNKNOWN’) 
I = ILF + 1 

♦ WRITE(2,*) X(D,Y(I,1),Y(IJM),Y(IJM) 

DXF = .015 
EXF = 1.1 
100 1 = 1+1 


DETERMINE THE STEP S IZE, DX 

IF(DXF.GT..5) DXF = .25 

• LIMITATION AT GROUND PLANE 


-DXF = DXF*EXF 


DY = Of(I-USL) - Ya-l,l))/(JSL - 1.) EM = ATAN2(1.,SQRT(AM(I-1,1)**2 - 1.)) 
DXW = DXF*DY/(TAN(EM + TH(I-1,2)) - TAN(TH(I-1,2») 


* LIMITATION AT SHOCK 

* EM = ATAN2(l.,SQRT(AMa-UM)**2 - 1.)) 

* DXS = DXF*DY/(TAN(EM - TH(I-1JM)) + TAN(WSa-l») 

* dx = DXS 

* IF(DXW.LT.DXS) DX = DXW 
DX = DXW 

* WRITER,*)/ DX = ‘JDXW 


SET Y-STATIONS AT THIS I 

XX =X(I-1) + DX 
IF(XX.GE .XA(NPA)) THEN 
XX = XA(NPA) 

DX= XA(NPA) - Xa-1) 

ILA =1 
Y(I,I) = YA(NPA) 

CAW = CA(NPA) 

ELSE 


CALL INTRPC(XA V XX,AAX,BAX,CAX,NPA,IZ,TT) 
mi) = YA(IZ) + ((AAY(IZ)*TT + BAY(IZ))*TT + CAY(IZ))*TT CAW 
((AAC(IZ)*TT + BAC(IZ))*TT + CAC(IZ))*TT 
ENDIF 


X(I) = XX 

YGJSL) = YG-USL) + DX*TAN(TH(I-1JSL)) 

Yfl = YfT KT ^ 

Y(UM) = Ya-1,JM) + DX*TAN(WS(I-1)) 


= CA(IZ) + 


DY = (Y(IJSL) - Ya,l))/(JSL - 1.) 
DO 120 J = 2JSL-1 
XU) =X(T) 
Yaj>=Yaj-i)+DY 
120 CONTINUE 


G-3 


*. 

* 


CONDITIONS AT THE WALL 



■TH(I,1) 


+_ 

ATAN2((Y(I,1)-Y(I-1,1)),DX) 

*■ INITIAL GUESS, VALUES AT LAST WALL STATION 

pai) =p(i-i.u 

AM (1,1) = AMa-1,1) 

RHOai) = RHOa-l,l) 

H0a,l) =H0(I-1,1) 
vTa,D = vTa-i.i) 
pw = pa-u) 

AMI = AMa-1,1) 

TH1 =THa-l,l) 

* ITERATION LOOP FOR THE WALL 

* WRJTE(6,*),’ Iteration loop for wall... AMI = \AM1 
KW = 0 

* LOCATE YC1 

130 CONTINUE 
KW = KW + 1 
PWL = P(1, 1 ) 

EMW = ATAN2(l.,SQRT(AMa,l)**2 - 1.)) 

EMU = .5*(EMW + ATAN2(1.,(SQRT(AM1**2 - 1.)))) PHI = EMU - .5*(THa,l) + TH1) 

YC1 = Ya,l) + DX*TAN(PHI) 

DC1 = SQRT(DX**2 + (Ya,l) - YC1)**2) 

DO 140 J = 2JSL 
J1=J-1 

IF(YC1.LT.Y(I-1,J)) GO TO 145 
140 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT YC1 * Use 4 Dt 

Lagrange interpolation F 

145 CONTINUE 
JPM = 0 

IF(Jl.EQ.l) JPM = 1 
IF(J1.EQ.JM-1) JPM = -1 


JB = J1 - 1 + JPM 
JC = J1 + JPM 
JD = J1 + 1 + JPM 
JE = J1 + 2 + JPM 


YB = Ya-1,JB) 
YC = Ya-UC) 
YD = Ya-1JD) 
YE = Y(I-1,JE) 


YFl=(YCl-YC)*(YCl-YD)*(YCl-YE)/((YB-YC)*(YB-YD)*(YB-YE))YF2=(YCl-YB)*fYCl- 

YD)*(YC1-YE) / ((YC-YB)*(YC-YD)*(YC-YE)) YF3 = (YC1-YB)*(Y^^^ 
TO^^ ( D?* YC)+(YD * YE)) YF4 = < YC1 -YB)^ C1 V(YC1-YD) / ^E-W(?E- 


TH1 = THU-1,JB)*YF1 + THa-1 JC)*YF2 + 
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1 


TH(I-1JD)+YF3 + TH(I-1JE)*YF4 
AMI = AM(I-UB)*YF1 + AM(I-1 JC)+YF2 + 

1 AM(I- 1 JD)*YF3 + AM (I- 1 JE)*YF4 

VT1 = VT(I-l t JB)*YFl + VT(I-1 JC)*YF2 + 

1 VT(I-1,JD)*YF3 + VT(I-l r JE)*YF4 

RH1 = RH0(I-UB)*YF1 + RH0(I-1 JC) *YF2 + 

1 RHOG-1 JD)*YF3 + RH0a-UE)*YF4 

PI = P(I-UB)*YF1+ P(I-1,JC)*YF2 + 

1 P(I-1,JD)*YF3 + P(I-1JE)*YF4 

BT1 = SQRT(AM1**2 - 1.) 

BRV1 = BT1/(RH1*VT1**2) 

RHS 1 = SIN(THiy(AMl*YCl) 

♦ AVERAGES BETWEEN YC1 & Y(I,1) 

BRV = .5*(BRV1 + SQRT(AM(I,1)**2 - l.)/(RH0(U)*VT(U)**2» RHS = -.5*DC1*(RHS1 

SIN(TH(Ll)y(AM(I.l)*Y(U))) 

RHS =0. 


* GET PRESSURE 

P(I,1) = PI + (RHS + (TH(I,1) - TH1))/BRV 

* GET DENSITY FROM SOUND SPEED EQN 

aa = . 5*G*(P(i,iyRHoa,u + pa-uyRHoa-i,D) 
RHO(I,l) = RHOa-1,1) + (P(L1) - P(I-l,l)yAA 

* GET VT FROM STAGNATION ENTHALPY 

VT(U) = SQRT(2.*(H0(I,1) - G*P(I, 1 )/(GM*RHO(LI)))) 

* MACH NUMBER 

AM(L1) = VT(I, 1 ySQRT (G*P(1, 1 yRHO(1, 1 )) 

AMW = AM(I,1) 

* CHECK TO SEE IF CONVERGED 

DP = ABS(PWL - P(I,1)) 

* WRITER,*),’ dp = ‘JDP 
IF(DP.GT..01) GO TO 130 

* WRITER,*),’ Done with wall...’ ' 


*. 


2JSL-1 


DO INTERIOR POINTS 


DO 280 J 


INITIAL GUESS FOR THIS J 

P (U) =P(I-U) 

AM(I,J) = AM(I-1J) 

RHO(IJ) = RHO(I-U) 

H0(IJ) =H0(I-1J) 

VT(LJ) = VT(I-1,J) 

TH(IJ) = TH(I-1,J) 

AMI = AM(1,J) 

TH1 =THa,J) 
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AM2 = AM(IJ) 
TH2 =TH(IJ) 
AMS =AM(I,J) 
THS = TH(IJ) 

KI = 0 


* ITERATION LOOP AT THIS POINT 210 CON- 

TINUE 

KI = KI+ 1 
PL - P(I J) 

* LOCATE YC1 

EM =ATAN2(1.,SQRT(AM(U)**2-1.)) 

EMU = J*(EM + ATAN2(1.,(SQRT(AM1**2 - 1.)))) PHI = EMU - .5*(TH(IJ) + TH1) 

YC1 = YUJ) + DX*TAN(PHI) 

DC1 = SQRT(DX**2 + (Y(IJ) - YC1)**2) 

* FIND NEAREST J-INDEX BELOW YC1 

DO 220 JZ = 2 JSL 
J1 = JZ - 1 

IF(YC 1 .LT. YU- 1 ,JZ)) GO TO 225 220 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT YC1 * Using 4 pt Lagrange 

interpolation 

225 CONTINUE 
JPM = 0 

IF(Jl.EQ.l) JPM = 1 
IF(J1.EQJSL-1) JPM = -1 

JB = J1 - 1 + JPM 
JC = J1 + JPM 
JD = J1 + 1 + JPM 
JE = J1 + 2 + JPM 

YB = Y(I-1JB) 

YC = Ya-lJC) 

YD = YO-1 JD) 

YE = Y(I-1JE) 


YFl=0rCl-YC)^(YCl-YD)*aCl-YE)/(0rB-YC)*(YB-YD)*(YB-YE))YF2=(YCl-YB)*(YCl- 
YD)*(YC1-YE) / ((YC-YB)*(YC-YD)*(YC-YE)) YF3 = (YC1-YB)*(YC1-YC)*(YC1-YE) / 
(O^D- YB )* ( YD- Y C)*( YD- YE)) YF4 = (YC 1 - YB ) * (YC 1 - YC)* (YC 1 -YD) / ((YE-YB)*(YE- 
YC)*(YE-YD)) 

TH 1 = TH(I-1JB)*YF1 + THa-lJC)*YF2 + 

1 TH(I-1 JD)*YF3 + TH(I-1 JE)*YF4 j 

AMI = AM(I-1 JB)*YF1 + AM(I-1 JC)*YF2 + 

1 AM(I-1,JD)*YF3 + AM(I-1JE)*YF4 

VT1 = VT(I-1,JB)*YF1 + VTG-1 JC)*YF2 + 

1 VT(I-1JD)*YF3 + VT(I-1JE)*YF4 

RH1 = RHOG-1 JB)*YF1 + RHO(I-l JC)*YF2 + 

1 RH0(I-1JD)*YF3 + RH0(I-1JE)*YF4 

PI = PG-1 JB)*YF1 + PG-1 JC)*YF2 + 
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1 


P(I-1 JD)*YF3 + P(I-1,JE)*YF4 


BT1 =SQRT(AM1**2- 1.) 
BRV1 =BT1/(RH1*VT1**2) 
RHS1 = SIN(TH1)/(AM1*YC1) 
RHS1 =0. 


LOCATE YC2 

EMU = .5*(EM + ATAN2(1.,(SQRT(AM2**2 - 1.)))) PHI = EMU + .5*(TH(IJ) + TH2) 

YC2 = Y(I,J) - DX*TAN(PHI) 

DC2 = SQRT(DX**2 + (Y(IJ) - YC2)**2) 

DO 230 JZ = 2,JSL 
J2 = JZ - 1 

IF(Y C2.LT. Y (I- 1 JZ)) GO TO 235 230 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT YC2* Use 4 pt 

Lagrange interpolation 
235 CONTINUE 
JPM = 0 

IF(J2.EQ.l) JPM = 1 
IF(J2.EQ.JSL-1) JPM = -1 

JB = J2 - 1 + JPM 
JC = J2 + JPM 
JD = J2 + 1 + JPM 
JE = J2 + 2 + JPM 


YB = Y(I-1,JB) 
YC = Y(I-1,JC) 
YD = Y(I-1JD) 
YE = Y(I-IJE) 


YF1=(YC2-YC)*(YC2-YD)*(YC2-YE)/((YB-YC)*(YB-YD)*(YB-YE))YF2=(YC2-YB)*(YC2- 
YD)*(YC2-YE) / ((YC-YB)*(YC-YD)*(YC-YE)) YF3 = (YC2-YB)*(YC2-YC)*(YC2-YE) / 
((YD-YB)*(YD-YC)*(YD-YE)) YF4 = (YC2-YB)*(YC2-YC)*(YC2-YD) / ((YE-YB)+(YE- 


TH2 = TH(I-1 JB)*YF1 + TH(I-1,JC)*YF2 + 

1 TH(I-1,JD)*YF3 + TH(I-1JE)*YF4 

AM2= AM(I-1,JB)*YF1 + AM(I-UC)*YF2 + 

1 AM(I-1 JD)*YF3 + AM(I-1 JE)+YF4 

VT2 = VT(I-1JB)*YF1 + VT(I-1,JC)*YF2 + 

1 VT(I-1,JD)*YF3 + VT(I-1JE)*YF4 

RH2 = RH0(I-1JB)*YF1 + RHOfl-UC)*YF2 + 

1 RHO(I- 1 JD)* YF3 + RHO(I-l JE)*YF4 

P2 = P(I-1,JB)*YF1 + P(I-UC)*YF2 + 

1 P(I-1,JD)*YF3 + P(I-UE)*YF4 

BT2 = SQRT(AM2**2 - 1.) 

BRV2 = BT2/(RH2*VT2**2) 

RHS2 = SIN(TH2)/(AM2*YC2) 

RHS2 = 0. 
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*_ LOCATE YS 

EMU = . 5 * (EM + ATAN2(1.,(SQRT(AMS**2 - 1.)))) PHI = .5*(THaJ) + THS) 

YS = Y(U) - DX*TAN(PHI) 

DS = SQRT(DX**2 + (Y(LJ) - YS)**2) 

DO 240 JZ = 2 JSL 
JS=JZ- 1 

IF(YS.LT.Y(I-1JZ)) GO TO 245 240 CONTINUE 

* COMPUTE PRESSURE & OTHER STUFF AT YS* Use 4 pt Lagrange in- 

terpolation 

245 CONTINUE 
JPM = 0 

IF(JS.EQ.l) JPM = 1 IF(JS.EQJSL-1) JPM = -1 

JB = JS - 1 + JPM 
JC = JS + JPM 
JD = JS + 1 + JPM 
JE = JS + 2 + JPM 


YB = Y(I-1,JB) 

YC = YU-UC) 

YD = Y(I-1JD) 

YE = Y(I-IJE) 

YF1 = (YS-YC)*(YS-YD)*(YS-YE)/((YB-YC)*(YB-YD)*(YB-YE)) YF2 ■ (YS-YB)*(YS- 
YD)*(YS-YE)/((YC-YB)*(YC-YD)*(YC-YE)) YF3 = (YS-YB)*(YS-YC)*(YS-YE)/((YD- 
YB)*(YD-YC)*(YD-YE)) YF4 = (YS-YB)*(YS-YC)*(YS-YD)/((YE-YB)*(YE-YC)*(YE-YD)) 

THS = TH(I-I JB)*YF1 + TH(I-1 JC)*YF2 + 

1 TH(I-UD)*YF3 + TH(I-1JE)*YF4 

AMS = AM(I*1 JB)*YF1 + AMa*l JC)*YF2 + 

1 AMJ-1 JD)*YF3 + AM(I-1 JE)*YF4 

VTS = VT(I-1JB)*YF1 + VT(I-1 JC)*YF2 + 

1 VTa- 1 JD)* YF3 + VTa- 1 JE)* YF4 

RHOS = RHOa*l JB)*YF1 + RHO(I-l JC)*YF2 + 

1 RH0(I-1JD)*YF3 + RH0(I-1JE)*YF4 

HOS = H0(I-1,JB)*YF1 + H0(I* 1 JC)* YF2 + 

1 HOa- 1 ,JD)*YF3 + HOa- 1 JE)* YF4 

PS = Pa-1JB)*YF1+ P(I-1JC)*YF2 + 

1 Pa-1 JD)*YF3 + PU-1 JE)*YF4 

* SOLVE FOR POJ) 

* Note: Eq. 2 & 3 

BRV = SQRT(AMaJ)**2 - l.)/(RHOaJ)*VTaJ)**2) 

* RHS = SIN(THa,J)V(AMaJ)*YaJ)) 

RHS =0. 


BRV1 = .5*(BRV + BRV1) 

RHS1 = .5*DC1*(RHS + RHS1) 
RHS1 = 0. 

BRV2 = .5*(BRV + BRV2) 

RHS2 = .5*DC2*(RHS + RHS2) 
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RHS2 = 0. 


*_ 

* 


*_ 

* 


*_ 

♦ 


DTH = TH 1 - TH2 

P(U) = (BRV1*P1 + BRV2*P2 - RHS1 - RHS2 - DTH)/(BRV1 + BRV2) 


SOLVE FOR TH(IJ) 


Note: Eq. 2 

TH(I,J) = TH1 + BRV1*(P(LJ) - PI) + RHS1 


SOLVE FOR RHO(IJ) 


Note: Eq. 1 

AA = .5*G*(P(U)/RHO(U) + PS/RHOS) 
RHOOJ) = RHOS + (P(U) - PS)/AA 


SOLVE FOR HOa J) 

Note: On same streamline as point f. 
H0(I J) = HOS 


* SOLVE FOR VT(I,J) 

* Note: Eq. 4 

VT(U) = SQRT (2. * (H0(I J) - G*P(I,J)/(GM+RHO(U)))) 


* SOLVE FOR OTHER STUFF 

SQRT(G*P(IJ)/RHO(U)) 


■AM(I,J) = VT(I,J)/ 


— CHECK CONVERGENCE AT THIS POINT 
DP = ABS(P(I,J) - PL) 

IF(DP.GT..001) GO TO 210 


*. 

* 

* 


END OF MAIN LOOP 

WRITER,*),’ finished interior points at this station...’ 


280 CONTINUE 


POINTS AT SLIPLINE 


UAL GUESS FOR SLIPLINE 
TH(LJSL) =TH(I-1,JSL) 
AM(IJSL) = AM(I-1,JSL) 
VT(IJSL) =VTa-l,JSL) 
RHO(I,JSL) = RHOa-lJSL) 
H00JSL) =H0a-lJSL) 
P(IJSL) =Pa-USL) 

AM2 = AM(I-USL) 

TH2 = TH(I-1 JSL) 

TH(IJSS) =TH(I-1JSS) 
AMaJSS) = AMBUSS) 
VT(IJSS) = VTa-lJSS) 
RHOa,JSS) = RHO0-1JSS) 
H0(USS) =H0a-l,JSS) 
P(I,JSS) =P(I-1JSS) 
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AMI = .5*(AM(I-USS) + AM(I-1 JM» TH1 = ,5*(TH(I-USS) + TH(I-1 JM)) 

* GET STUFF AT J = JSL 

KI = 0 


count = 0 

300 CONTINUE 

count = count + 1 
IF (count.GT.30.) THEN 

WRITE(6,*)’slipline did not converge’ Kicker = 5 
GOTO 3331 

END IF 


KI = KI + 1 

* WRITE(6 *),’ KI = \KI 

* WRITE(6,*),’ AM(LJSL) = *,AM(IJSL) 

* WRITE(6 AM2 = \AM2 

* LOCATE YC2 

EML = AT AN2( 1 .,SQRT ( AM(I, J SL)* *2 - 1.)) 

EMU = .5* (EML + ATAN2( 1 .,(SQRT(AM2* *2 - 1.)))) PHI = EMU + .5*(TH(I,JSL) + TH2) 
YC2 = Y(I,JSL) - DX*TAN(PHI) 

DC2 = SQRT(DX**2 + (Y(IJSL) - YC2)**2) 

* FIND J-LOC ATION OF YC2 

DO310JZ = 2JSL 

J2 = JZ - 1 EF(Y C2.LT. Y(I- 1 JZ)) GO TO 315 
310 CONTINUE 

* GET VALUES AT YC2 

* Use 4 pt Lagrange interpolation 
315 CONTINUE 

JPM = 0 

IF(J2.EQ.JSL-1) JPM = -1 

JB = J2 - 1 + JPM 
JC = J2 + JPM 
JD = J2 + 1 + JPM 
JE = J2 + 2 + JPM 


YB = Y(I-1 JB) 

YC = Y(I-1JC) 

YD = Y(I-1 JD) 

YE = Y(I-IJE) 

YF1 = (YC2-YC)*(YC2-YD)*(YC2-YE)/((YB-YC)*(YB-YD)*(YB-YE)) YF2 = (YC2-YB)*(YC2- 
YD)*(YC2- YE)/((YC-YB)*(YC-YD)*(YC- YE)) YF3 = (YC2-YB)*(YC2-YC)*(YC2-YE)/((YD- 
YB)*(YD-YC)*(YD-YE)) YF4 = (YC2-YB)+(YC2-YC)*(YC2-YD)/((YE-YB)*(YE-YC)*(YE- 
YD)) 

TH2 = TH(I-1 JB)*YF1 + TH(I-1 JC)*YF2 + 

1 TH(I-1,JD)*YF3 + TH(I-1 JE)*YF4 

AM2 = AM(I-1,JB)*YF1 + AM(I-1 JC)*YF2 + 

1 AM(I-1JD)*YF3 + AM(I-1 JE)*YF4 
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VT2 = VT(I-1JB)*YF1 + VT(I-1 JC)*YF2 + 

1 VT(I-1 JD)*YF3 + VT(I-1JE)*YF4 

RH2 = RH0(I-1JB)*YF1 + RHO(M JC)*YF2 + 

1 RH0(I-1 JD)*YF3 + RHO(M JE)*YF4 

P2 = P(I-1 JB)*YF1 + P(I-1JC)*YF2 + 

1 P(I-1JD)*YF3 + P(I-1JE)*YF4 


♦ WRITE(6 ,*),’ AM2 = \AM2 
BT2 = SQRT(AM2**2 - 1.) 

BRV2 = BT2/(RH2*VT2**2) 

♦ RHS2 = SIN(TH2)/(AM2*YC2) 

RHS2 = 0. 

♦ GET AVERAGED VALUES BETWEEN YC2 AND SLIPLINE AT I BRV = 

SQRT(AM(IJSL)**2 - l.)/(RHO(IJSL)*VT(IJSL)**2) BRV2 = .5*(BRV2 + BRV) 

♦ RHS = SIN(TH(IJSL))/(AM(IJSL)*Y(IJSL)) 

♦ RHS2 = .5*DC2*(RHS + RHS2) 

RHS2 = 0. 


* COMPUTE CORRESPONDING VALUE OF P(USL) P(LJSL) = P2 + (RHS 2 - 

(TH(USL)-TH2))/BRV2 

* GET OTHER VARIABLES AT (IJSL) 

AA = .5*G*(P(I,JSL)/RHO(IJSL) + P(I-1 JSL)/RH0(I-1JSL)) RHO(IJSL) = RHO(I-l JSL) + 
(P(USL) - P(I-1JSL))/AA VT(IJSL) = SQRT(2.*(HO(IJSL)-G*P(IJSL)/(GM*RHO(IJSL)))) 
AM(USL) = VT(IJSL)/SQRT(G*P(IJSL)/RHO(IJSL)) 

* NOW GET STUFF AT J = JSS 

* WRITER,*),’ AM(I,jss) = ‘.AMflJSS) 

* LOCATE YC1 

EMI = ATAN2(1.,SQRT(AM1**2 - 1.)) 

EMU = .5*(ATAN2(1.,SQRT(AM(IJSS)**2 - 1.)) + EMI) 

PHI = EMU - .5*(TH(I,JSS) + TH1) 

YC1 = Y(I,JSS) + DX*TAN(PHI) 

DC1 = SQRT(DX**2 + (Y(USS) - YC1)**2) 

* COMPUTE PRESSURE & OTHER STUFF AT YC1 

* Using linear interpolation 
IF((I- 1 ).EQ.(ILF+ 1 )) THEN 

YR = 1. 

ELSEIF(YC1 .GT.Y (I- 1 JM)) THEN 
YR = 1. 

ELSE 

YR = (YC1 - Y(MJSS)y(Y(MJM) - Y(I-1 JSS)) ENDIF 

TH1 =TH(I-1 JSS) + YR*(TH(I-1 JM) - TH(I-1 JSS)) AMI = AM(I-1 JSS) + YR*(AM(I- 1 JM) - 
AM(I-IJSS)) VT1 = VT(I-IJSS) + YR*(VT(I-1JM) - VT(I-1JSS)) RH1 = RHOa-USS) + 
YR*(RH0(I-1JM) - RHOa-1 JSS)) PI = P(I-1JSS) + YR*(P(I-1JM) - P(I-1JSS)) 

* WRITE(6 ,♦),’ AMI = ‘.AMI 
BT1 = SQRT(AM1**2 - 1.) 

BRV1 » BT1/(RH1*VT1**2) 

* RHS1 = SIN(TH1)/(AM1*YC1) 

RHS1 =0. 
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* GET AVERAGED VALUES BETWEEN YC1 AND SLIPLINE AT I BRV = 

SQRT(AM(IJSS)**2 - l.)/(RH0(USS)*VT(USS)**2) BRVI = .5*(BRV1 + BRV) 

* RHS = SIN(TH(I,JSS))/(AM(I,JSS)*Y(IJSS)) 

+ RHS1 = -.5*DC1*(RHS + RHS1) 

RHS1 =0. 


* COMPUTE CORRESPONDING VALUE OF P(IJSS) P(USS) = PI + (RHS1 + 

(TH(IJSS) - TH1))/BRV1 

* GET OTHER STUFF AT J = JSS 

AA = .5*G*(P(USS)/RHO(l,JSS) + P(I-1 JSS)/RHO(I-l JSS)) RHOaJSS) = RHO(MJSS) + 
(Pa JSS) - Pa-1 JSS))/AA ARG = HOaJSS) - G*PaJSS)/(GM*RHOaJSS)) 

♦ WRITE(6,*),’ ARG = \ARG 

VTOJSS) = SQRT(2.*010aJSS)-G*PaJSS)/(GM+RHOaJSS)))) * WRITE(6,*).’ 

pajss) = \pa jss); pi = ‘jpi 

♦ WRITE(6 *),’ RHOaJSS) = \RHOaJSS),’ RH 1 = 4 ,RH 1 
AM(IJSS) = VT0JSS)/SQRT(G*PaJSS)/RHOaJSS)) 

♦ WRITE(6 *),’ VTaJSS) = ‘.VTaJSS),’ VT1 = ‘,VT 1 

* WRITE(6*),’ AMaJSS) = ‘.AMaJSS),’ AMI = ‘,AM1 

* NOW COMPARE PRESSURES BETWEEN JSL & JSS 

DP = ABS(P(IJSL) - PGJSS)) 

♦ WRITER,*),’ DP = *,DP,’ pa JSL) = \P0JSL) 

* WRlib(6,*),’ Hit any key when ready...’ 

♦ READ(5,’(A1)’) ZZZZ 
IF(DP.LT..05) GO TO 330 
IF0a.GT.40) THEN 

* WRITE(6,*),’ KI = ‘,KI,’...GOTO 3333ping...’ 

♦ WRITE(6,*),’ DP = 4 JDP,’ P(JSL) = ‘,P(I JSL) 

ENDIF 


♦ NOT CONVERGED, SET UP FOR NEXT ITERATION AT SLIP LINE PA = 

.6*P(IJSL) + .4*P0JSS) 

THL = TH2 - BRV2*(PA - P2) + RHS2 THS = TH1 + BRV1*(PA - PI) - RHS1 THA = .5+(THL 
+ THS) 

TH(IJSL) = J*TH0 JSS) + .7*THA THOJSS) = .3*TH0JSL) + .7 ♦THA GO TO 300 

♦ SLIPLINE CONVERGED 330 CONTINUE 

♦ WRITE(6*),’ slipline converged....’ 


POINT AT THE SHOCK 

♦ ♦ INI- 

TIAL SHOCK ANGLE = LAST STATION 

wsa)=wsa-i) 

AMI = AMINF 
AM2 = AM0-1JM) 

TH2 =TH0-1JM) 

KS =0 

COUNTER = 0 

* GET QUANTITIES FROM OBLIQUE SHOCK RELATIONS 410 CONTINUE 

COUNTER = COUNTER + 1 
IF (COUNTER.GT.40) THEN 
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WRITE(6,*) ‘Nozzle Did Not Converge’ Kicker = 3 
GOTO 3331 
END IF 


KS — KS + 1 

Y(IJM) = Y(I-UM) + DX*TAN(WS(I)) 

AMN = AMINF*SIN(WS(I)) 

PR = (2.*G*AMN**2 - GM)/GP 

DEN = .5*(GP*AMN)**2/GM 

TR = (1. + .5*GM*AMN**2)*(2.*G*AMN**2/GM - l.)/DEN 

RR = PR/TR 

PL = PINF+PR 

RHOL = RHINF+RR 
FI = AMN**2- 1. 

F2 = G*AMN**2 + 1. 

F3 = (GP*AMINF*AMN)**2 
VTL = VINF*SQRT(1. - 4.*F1*F2/F3) 

SW = SIN(WS(I)) 

THL = ATAN2(2.*F1,(TAN(WS(I))*(2.4<GP-2.*SW**2)*AMINF**2))) SWT = SIN(WS(I) - 
THL) 

AML = SQRT((GM*AMN**2 + 2.)/((2.*G*AMN"'*2 - GM)*SWT**2)) VT(I,JM) = VTL 
RHO(I,JM) = RHOL 
POJM) = PL 
AM(I,JM) = AML 
TH(I,JM) = THL 


NOW GET Pa JM) FROM MOC * LOCATE 

EML = ATAN2( 1 .,SQRT( AML* *2 - 1.)) 

EMU = .5 "'(EML + ATAN2(1.,(SQRT(AM2**2 - 1.)))) PHI = EMU + .5*(THaJM) + TH2) 
YC2 = Y(I,JM) - DX*TAN(PHI) 

DC2 = SQRT(DX**2 + (YGJM) - YC2)**2) 


GET VALUES AT YC2 

Use Linear interpolation 
IF(a-l).EQ.aLF+l)) THEN 
YR = 1. 

ELSE 

YR = (YC2 - Ya-UM-l)V(Ya-UM)-Ya-l JM-1)) END IF 


TH2 = TH(I- 1 ,JM- 1 ) + YR*(THU- 1 JM)-THa* 1 JM- 1 )) AM2 = AMG-1 JM-1) + YR*(AM(I- 
1 JM)-AM(I-1 JM-1)) VT2 = VT(I-lJM-l) + YR*(VT(I-1JM)-VT(I-1,JM-1)) RH2 = RHCXI- 
1 JM- 1 )+ YR"(RHO(I-l JM)-RHOG-l JM- 1 )) P2 =Pa*lJM-l) + YR*(Pa-lJM)-Pa-lJM-l)) 


BT2 = SQRT(AM2**2 - 1.) 
BRV2 = BT2/(RH2*VT2" , *2) 

♦ RHS2 = SIN(TH2)/(AM2*YC2) 
RHS2 = 0. 


* GET AVERAGED VALUES BETWEEN YC2 AND SHOCK AT I 

BRV = SQRT(AM(IJM)"'*2 - l.y(RHOaJM)*VTaJM)**2) BRV2 = ,5*(BRV2 + BRV) 

♦ RHS = SIN(THa JM))/(AM0JM)*Ya JM)) 
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* RHS2 = .5*DC2*(RHS + RHS2) 
RHS2 = 0. 


* COMPUTE CORRESPONDING VALUE OF P(IJM) P(IJM) = P2 + (RHS2 - 

(TH(IJM) - TH2))/BRV2 

* COMPARE WITH SHOCK VALUE 

DP = P(LJM)-PL 

* WRITE(6,*),’ DP = ‘.DP,’ P(UM) = \P(IJM) 

IF(ABS(DP).LT..l) GO TO 450 

* WRITER,*),’ Hit any key when ready...’ 

* READ(5,’(A1)’) ZZZZ 
IF(ABS(DP).LT..01) GO TO 450 

* PRESSURE NOT CONVERGED, GET NEW SHOCK ANGLE & Y-LOCATION * 

Note: use is made of the shock angle,M,& pressure ratio 
PA = P(I,JM)/PINF 

FI = .5*(GP*PA + GM)/(G*AMINF**2) 

WSU) = .5*(W S(I) + ATAN(SQRT(F1/(1. - FI)))) 

* WRITE(6,*),’pressure not converged’ 

GOTO 410 


* PRESSURE CONVERGED.SHOCK LOCATION SET 

450 CONTINUE 

* WRITE(6,*),’ X = 4 ,X(D,’ AM(i,jm) = 4 ^AM(IJM), 

* 1 4 AM(I,1) = ‘,AM(I,1) 

* WRITE(2 ,*) X(I),Y(I,1),Y(USL),Y(I,JM) 

* WRITE TO BODY SURFACE DATA FILE * 

WRITE(55,*) X(I),AM(UM),P(UM),RHO(UM) 


* GO TO NEXT I-STATION — 

100 

* CLOSE(2,STATUS=’KEEP’) 

3331 CONTINUE 

* — RETURN 

END 


■IF(X(I).LT.XA(NPA)) GO TO 


i 


199 



